Aminet 19/Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso/Aminet/comm/bbs/FList_211.lha/FList/Rexx/FListOpt.Trans

Text File | 1997-04-05 | 100KB | 2 lines

/**/
;if ~show(L,'rexxsupport.library') then;call addlib('rexxsupport.library',0,-30,0);call defcfg;si=systeminfo;ui=userinfo;gc=getchar;sl=sysoplog;Options Results;Options Failat 9999;Signal On Syntax;Signal On Break_C;Signal On Break_D;Signal On Break_E;Signal On Break_F;flistversion="2.11";ver$="v"flistversion;BLK="";RED="";GRN="";YEL="";BLU="";PNK="";CYN="";WHT="";BLD="";UBLD="";ITL="";UND="";clr="";FSH="";INV="";BBLK="";BRED="";BGRN="";BYEL="";BBLU="";BPNK="";BCYN="";BWHT="";KL="";newline;send "[FList] Loading language file...";err=time('r');call open(in,'bbs:configs/flist.lang','r');do i=1 to 427;lang.i=readln(in);end;call close(in);print time('e')' seconds';newline;cls;sl clr||bld"[FList] "ver$" "lang.1||clr;optsline="|A|C|D|E|F|H|I|K|L|M|N|O|P|Q|R|S|T|V|W|X|Y|Z|2|4|6|8|!|*|-|+|=|?|.|/|\|%|";ui 'x';ansi=upper(result);if ansi="OFF" then;do;print "ÜÄÄÜ ÄÜÄÜÄÄÄÜÄ¿";print "Û  Û  Û Û   Û";print "ÛÄ Û  Û ßßÛ Û "ver$;send "Û  ÛÜÜÛÜÜÜÛ Û (c) S.Gillibrand 1997 - Digital Design";newline;newline;queryy lang.2;if upper(Result)="Y" then;do;listfiles;BLK="";RED="";GRN="";YEL="";BLU="";PNK="";CYN="";WHT="";BLD="";ubld="";ITL="";UND="";clr="";FSH="";INV="";BBLK="";BRED="";BGRN="";BYEL="";BBLU="";BPNK="";BCYN="";BWHT="";KL="";signal boomtown;end;cls;end;print BLD||CYN"ÜÄÄÜ ÄÜÄÜÄÄÄÜÄ¿";print clr||CYN"Û  Û  Û Û   Û";print BLD||BLU"ÛÄ Û  Û ßßÛ Û "GRN||ver$||ubld"  http://www.digitald.demon.co.uk/";send clr||BLU"Û  ÛÜÜÛÜÜÜÛ Û "BLD||YEL"(c) S.Gillibrand 1997 - Digital Design"RED"   ";send lang.3||cyn||bld;newline;newline;print clr||grn"::[ "fsh||lang.4||clr||grn" ]::";call open(hint,'bbs:configs/FList.hints','r');hintnum=compress(readln(hint));do hnt=1 to hintnum;cookie.hnt=readln(hint);end;call close(hint);fortune=random(1,hintnum,right(time(),2));print clr||grn||bld||cookie.fortune;address command "wait "defwait" secs >NIL:";maygetchar;if upper(result)="Q" then exit;t=0;err=time('r');Call Open(In,'BBS:Configs/FList.Cfg','R');accept=0;extdir=0;do until eof(in);data=upper(readln(in));if left(data,1)~="@" then iterate;if data="@END" then leave;select;when data="@RESTRICTACCESSFLAGS" then;do;data1=readln(in);data2=readln(in);RESTRICTACAGS.data1.data2=readln(in);end;when data="@RESTRICTFLAGS" then;do;data2=readln(in);RESTRICTFLAGS.data2=readln(in);end;when data="@RESTRICTACCESS" then;do;data2=readln(in);RESTRICTACCESS.data2=readln(in);end;when data="@SYSOPMENU" then lameacc=readln(in);when data="@SYSOPFUNCTMOVE" then sysopmovetaxx=readln(in);when data="@SYSOPFUNCTDEL" then sysopdeltaxx=readln(in);when data="@SYSOPFUNCTCOPY" then sysopcopytaxx=readln(in);when data="@SYSOPFUNCTXTERN" then sysopterntaxx=readln(in);when data="@SYSOPFUNCTDESC" then sysopdesctaxx=readln(in);when data="@SYSOPFUNCTPATH" then sysoppathtaxx=readln(in);when data="@SYSOPFUNCTEXE" then sysopexetaxx=readln(in);when data="@SYSOPFUNCTICE" then sysopicetaxx=readln(in);when data="@SYSOPFUNCTNUKE" then sysopnketaxx=readln(in);when data="@SYSOPFUNCTOUCH" then sysoptchtaxx=readln(in);when data="@SYSOPFUNCTIPRT" then sysopimptaxx=readln(in);when data="@USRPATH" then usrpath=readln(in);when data="@BINPATH" then binpath=readln(in);when data="@CFGPATH" then cfgpath=readln(in);when data="@TXTPATH" then txtpath=readln(in);when data="@PALETTEPATH" then pltpath=readln(in);when data="@SAVEDLPATH" then sdlpath=readln(in);when data="@PASSWORDPATH" then pswpath=readln(in);when data="@TAVERSION" then taversion=readln(in);when data="@DEFWAIT" then defwait=readln(in);when data="@TEMPATH" then tempath=readln(in);when data="@FPMPATH" then fpmpath=readln(in);when data="@FILECOL" then col_file=""readln(in)"m";when data="@SIZECOL" then col_size=""readln(in)"m";when data="@DATECOL" then col_date=""readln(in)"m";when data="@DESCCOL" then col_desc=""readln(in)"m";when data="@MAINBARCOL" then col_bar=""readln(in)"m";when data="@MAXCLOCK" then maxclock=upper(readln(in));when data="@SCRLMETHOD" then sfmeth=readln(in);when data="@PRECOMMEXE" then precommexe=readln(in);when data="@MULTIPLUG" then plugik=readln(in);when data="@USERHELP" then userhelp=upper(readln(in));when data="@LOGGING" then loggo=upper(readln(in));when data="@TIMESTATS" then tsts=upper(readln(in));when data="@NUKEMAIL" then tgmailpath=readln(in);when data="@HELPHIM" then failedcmd=readln(in);when data="@AREACOMM" then areacomm=upper(readln(in));when data="@ENLARGEMARK" then enlargemark=upper(readln(in));when data="@FLISTCACHE" then flistcache=upper(readln(in));when data="@FPMCOUNT" then fpmopt=upper(readln(in));when data="@ASSIGNOUTPUT" then assignoutput=readln(in);when data="@MONTHNAMES" then;do cosmicgirl=1 to 12;mname.cosmicgirl=readln(in);end;otherwise nop;end;end;Call Close(in);if loggo="OFF" then sl="";z=time('e');if flistcache="ON" then print "8H"clr||pnk"úþ "bld||lang.5||ubld" þú";else print "8H"clr||pnk"úþ "bld||lang.6||ubld||pnk" þú";do 6;newline;end;if tsts="ON" then print clr||bld||lang.7||z;t=t+z;err=time('r');maxmark=10;geniushaha.01=lang.8;geniushaha.02=lang.9;geniushaha.03=lang.10;geniushaha.04=lang.11;geniushaha.05=lang.12;geniushaha.06=lang.13;geniushaha.07=lang.14;geniushaha.08=lang.15;geniushaha.09=lang.16;geniushaha.10=lang.17;geniushaha.11=lang.18;geniushaha.12=lang.19;do i=1 to 12;monk=right(i,2,'0');nolf=upper(geniushaha.monk);geniusahah.nolf=monk;end;z=time('e');if tsts="ON" then print clr||bld||lang.20||z;t=t+z;err=time('r');if right(tempath,1)~="/"&right(tempath,1)~=":" then tempath=tempath'/';if right(fpmpath,1)~="/"&right(fpmpath,1)~=":" then fpmpath=fpmpath'/';if right(pltpath,1)~="/"&right(pltpath,1)~=":" then pltpath=pltpath'/';if right(sdlpath,1)~="/"&right(sdlpath,1)~=":" then sdlpath=sdlpath'/';if right(pswpath,1)~="/"&right(pswpath,1)~=":" then pswpath=pswpath'/';if right(txtpath,1)~="/"&right(txtpath,1)~=":" then txtpath=txtpath'/';if right(cfgpath,1)~="/"&right(cfgpath,1)~=":" then cfgpath=cfgpath'/';if right(binpath,1)~="/"&right(binpath,1)~=":" then binpath=binpath'/';if right(tgmailpath,1)~="/"&right(tgmailpath,1)~=":" then tgmailpath=tgmailpath'/';call checkpath(tempath);call checkpath(fpmpath);call checkpath(pltpath);call checkpath(sdlpath);call checkpath(pswpath);call checkpath(txtpath);call checkpath(cfgpath);call checkpath(binpath);call checkpath(tgmailpath);z=time('e');if tsts="ON" then print clr||bld||lang.21||z;t=t+z;err=time('r');call open(in,cfgpath'File.Cfg','R');dummy=readln(in);maxmark=compress(readln(in));if maxmark="" then maxmark=50;ui 'q';filesup=result;ui 's';filesdn=result;ui '7';usratio=result;if usratio~=0 then bian=((usratio*filesup)-filesdn)+usratio;else bian=65536;dummy=readln(in);areas=readln(in);do j=1 to areas;da=readln(in);apat.da=readln(in);npat.j=apat.da;do 6;d=readln(in);end;end;Call Close(in);z=time('e');if tsts="ON" then print clr||bld||lang.22||z;t=t+z;err=time('r');tbpline="FList "ver$" (C) S.Gillibrand 1997 - Digital Design";if plugik="OFF" then tbpliner=grn||bld||tbpline;else;do;tbpliner="";coy=0;do iii=1 to length(tbpline);coy=coy+1;if coy=1 then ccode=clr;if coy=2|coy=6 then ccode=clr||cyn;if coy=3|coy=5 then ccode=bld||cyn;if coy=4 then ccode=bld||wht;if coy=7 then;do;coy=0;iii=iii-1;iterate;end;tbpliner=tbpliner||ccode||substr(tbpline,iii,1);end;end;z=time('e');if tsts="ON" then print clr||bld||lang.23||z;t=t+z;err=time('r');zeon=areas;bebob=1;rotm=1;scrln=1;pageno=1;pages=1;BBSIDENTIFY sysop;bbsysopname=result;bbsidentify name;bbsname=result;BBSIDENTIFY TERM;lres=result;checkoffline=0;mkf=0;bad=0;markstring="";showopts=1;si 'z';areaname=result;areapath=apat.areaname;path=upper(areapath);ui 'v';screenln=result;ui 'o';useraccess=result;si 'r';bpsrate=result;ui 'a';username=result;ui 'x';ansi=result;ui 'g';userflags=result;systeminfo '8';bbsline=result;scrln=screenln-8;if scrln<2 then scrln=2;crvar=x2c('0A');kon=clr;if col_bar="" then kon=clr||und;z=time('e');if tsts="ON" then print clr||bld||lang.24||z;t=t+z;err=time('r');do i=1 to 8;if substr(userflags,i,1)="-" then userflags=overlay('O',userflags,i,1);end;z=time('e');if tsts="ON" then print clr||bld||lang.25||z;t=t+z;err=time('r');address command "assign FLIST: Exists >"tempath"FLIST_CHECK_ASSIGN"bbsline;Open(asscheckin,tempath"FLIST_CHECK_ASSIGN"bbsline,'R');dummy=readln(asscheckin);noneed=0;do until eof(asscheckin);If ~carrier then signal boomtown;if pos("FLIST",upper(Readln(asscheckin)))>0 then noneed=1;end;close(asscheckin);call checkpath("FILE:FList");if noneed=0 then address command "Assign FLIST: FILE:FLIST Add >NIL:";z=time('e');if tsts="ON" then print clr||bld||lang.26||z;t=t+z;err=time('r');if Open(Out,pltpath||username'.PLT','R') then;do;red=readln(out);grn=readln(out);yel=readln(out);blu=readln(out);pnk=readln(out);cyn=readln(out);wht=readln(out);Call Close(out);end;z=time('e');if tsts="ON" then print clr||bld||lang.27||z;t=t+z;err=time('r');psw="­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­";if exists(pswpath||username'.PSW') then;do;tries=0;sl "[FList] "lang.28;if tsts="ON" then newline;print clr||CYN"þ"bld" "lang.29;do forever;newline;If ~carrier then signal boomtown;prompt 30 'HIDE "'clr||RED'ú 'BLD||lang.30||yel': 'bblu||cyn'                              D"';epsw=upper(Result);Address Command 'LIST "'pswpath||username'.PSW" NOHEAD >'tempath'FLISTPSW'bbsline;Call Open(Pswin,tempath'FLISTPSW'bbsline,'R');dummy=readln(pswin);pw=readln(pswin);Call Close(pswin);psw=right(pw,length(pw)-2);if epsw~=upper(psw) then;do;newline;print clr||pnk"ú "lang.31;tries=tries+1;sl "[FList] "tries" "lang.32;if tries=3 then;do;sl "[FList] "lang.33;signal boomtown;end;end;if epsw=upper(psw) then leave;end;sl "[FList] "lang.34;newline;send cyn;if tsts="ON" then newline;end;z=time('e');if tsts="ON" then print clr||bld||lang.35||z;t=t+z;err=time('r');lstmarkedfiles tempath"Cool.FList"bbsline;If exists(tempath"Marked"bbsline) then;do;if exists(tempath"Cool.FList"bbsline) then;do;print clr||yel"þ"bld" "lang.36||clr;newline;send cyn;Call Open(Bagman,tempath"Cool.FList"bbsline,'R');Call Open(Relive,tempath'Marked'bbsline,'R');Call Open(Terrys,tempath'Chocolate'bbsline,'W');chowmein=0;do until eof(bagman);fn=readln(bagman);if compress(fn)~="" then mkf=mkf+1;call seek(relive,0,'B');do until upper(word(data,1))=upper(fn)|eof(relive);data=readln(relive);guyfawkes=word(data,1);filenim=upper(guyfawkes);if upper(filenim)=compress(upper(fn)) then;do;call writeln(terrys,data);chowmein=chowmein+1;gr=word(data,2);nm=word(data,3);descofile.filenim=translate(word(data,4),' ','­');areaofile.filenim=word(data,5);goar.filenim=gr;mark.filenim.gr="Y";npat.filenim=areaofile.filenim;markstring=markstring||guyfawkes" ";end;end;end;Call Close(Relive);Call Close(Bagman);Call Close(Terrys);address command 'rename "'tempath'Chocolate" "'tempath'Marked'bbsline'" >NIL:';end;else address command 'delete "'tempath'Marked'bbsline'" >NIL:';end;else;do;if exists(sdlpath||username'.SDL')&~exists('RAM:FList_Remark') then;do;queryy clr||pnk"þ"bld" "lang.37||clr;if upper(result)="Y" then call remark;end;end;z=time('e');if tsts="ON" then print clr||bld||lang.38||z;t=t+z;newline;if tsts="ON" then print clr||bld||lang.39||t" "lang.40;err=time('r');ceedee_now=0;extdev_now=0;if exists('RAM:FList_Remark') then;do;address command "delete RAM:FList_Remark >NIL:";call remark;signal boomtown;end;if exists('RAM:FList_CD') then;do;address command "delete RAM:FList_CD >NIL:";call cdromhandler;signal markemate;end;if exists('RAM:FList_ED') then;do;address command "delete RAM:FList_ED >NIL:";call edevhandler;signal markemate;end;call redraw;si '2';fool=result;farea=setarea(fool);fscroller:;start=1;bebob=0;call reloadfiles;call scroll;do forever;if ~carrier then signal boomtown;if maxclock="ON" then send ""scrln+4"H"BLD||RED||kl"C"qt();else send ""scrln+4"H"BLD||RED||kl"C"time();send ""scrln+4"H"BLD||YEL"Select: "grn||bld;bufferflush;err=time('r');do until fsopt~="RESULT"&fsopt~="NOCHAR";if ~carrier then signal boomtown;if word(lres,1)=80&word(lres,3)~=0&userhelp="ON" then;do;if left(time('e'),2)=30 then call lloose(lang.41);if left(time('e'),2)=35 then call lloose(lang.42);if left(time('e'),2)=40 then call lloose(lang.43);if left(time('e'),2)=45 then call lloose(lang.44);if left(time('e'),2)=50 then call lloose(lang.45);if left(time('e'),2)=55 then call lloose(lang.46);if left(time('e'),2)=60 then call lloose(lang.47);if left(time('e'),2)=65 then call lloose(lang.48);if left(time('e'),2)=70 then call lloose(lang.49);if left(time('e'),2)=75 then call lloose(lang.50);if left(time('e'),2)=80 then call lloose(lang.51);if left(time('e'),2)=85 then call lloose(lang.52);if left(time('e'),2)=90 then call lloose(lang.53);if left(time('e'),2)=95 then call lloose(lang.54);if left(time('e'),3)=100 then call lloose(lang.55);if left(time('e'),3)=105 then call lloose(lang.56);if left(time('e'),3)=110 then call lloose(lang.57);if left(time('e'),3)=115 then call lloose(lang.58);if left(time('e'),3)=120 then call lloose(lang.59);if left(time('e'),3)=125 then call lloose(lang.60);if left(time('e'),3)=130 then call lloose(lang.61);if left(time('e'),3)=135 then call lloose(lang.62);if left(time('e'),3)=140 then call lloose(lang.63);if left(time('e'),3)=145 then call lloose(lang.64);if left(time('e'),3)=150 then call lloose(lang.65);if left(time('e'),3)=155 then;do;call lloose(lang.66);err=time('r');end;end;bufferflush;maygetchar;fsopt=upper(result);If fsopt='1B'x|fsopt='9B'x|fsopt='5B'x then;do;maygetchar;Tmp=result;if tmp="[" then;do;maygetchar;tmp=result;If Tmp='A' then fsopt='8';If Tmp='B' then fsopt='2';If Tmp='C' then fsopt='1';If Tmp='D' then fsopt='7';end;else;do;If Tmp='A' then fsopt='8';If Tmp='B' then fsopt='2';If Tmp='C' then fsopt='1';If Tmp='D' then fsopt='7';end;End;end;send ""scrln+4"H"kl;send ""scrln+4"H"kl||BLD||YEL||lang.67||grn||bld;if fsopt="K" then call flick;if fsopt="/" then drop cache.;if fsopt="\" then;do;do sisters=1 to mkf;voice=upper(word(markstring,sisters));ger=goar.voice;mark.voice.ger="N";end;markstring="";mkf=0;call redraw(1);call scroll;end;if fsopt='0D'x then fsopt="2";if fsopt='08'x then fsopt="8";if c2d(fsopt)=67 then;do;maygetchar;shen=result;secval=1;if shen~="NOCHAR"&shen~="RESULT" then secval=c2d(shen);if secval=50 then;do;soak=lang.69;send soak;sl "[FList] "lang.68" (> "soak" <)";fsopt="";sendfile txtpath"FLISTMAINHELP";newline;continue;call redraw;call scroll;end;end;if (fsopt="2"|fsopt="3")&pageno<pages then;do;soak=lang.70;send soak;sl "[FList] "lang.68" (> "soak" <)";pageno=pageno+1;if pageno=pages then start=bebob-(scrln-1);else start=start+scrln;maygetchar;if upper(result)="NOCHAR" then call scroll;else call flick;end;if fsopt="8"|fsopt="9" then if START>1 then;do;soak=lang.71;send soak;sl "[FList] "lang.68" (> "soak" <)";if start-scrln<1 then start=scrln+1;pageno=pageno-1;start=start-scrln;maygetchar;if upper(result)="NOCHAR" then call scroll;else call flick;end;if (fsopt="4"|fsopt="7")&pageno~=1 then;do;soak=lang.72;send soak;sl "[FList] "lang.68" (> "soak" <)";start=1;pageno=1;call scroll;end;if (fsopt="6"|fsopt="1")&pages>1&pageno~=pages then;do;soak=lang.73;send soak;sl "[FList] "lang.68" (> "soak" <)";start=bebob-(scrln-1);pageno=pages;call scroll;end;if (fsopt="I"&bebob>2)&start<bebob then;do;soak=lang.74;send soak;sl "[FList] "lang.68" (> "soak" <)";call editdesc;end;if fsopt="L" then;do;soak=lang.75;send soak;sl "[FList] "lang.68" (> "soak" <)";call palprefs;call scroll;end;if fsopt="P" then;do;soak=lang.76;send soak;sl "[FList] "lang.68" (> "soak" <)";cls;send clr;call passwrd;end;if fsopt="?" then;do;soak=lang.77;send soak;sl "[FList] "lang.68" (> "soak" <)";sendfile txtpath"FLISTMAINHELP";newline;continue;call redraw;call scroll;end;if fsopt="!" then;do;soak=lang.78;send soak;send clr;cls;newline;call remark;call redraw;call scroll;end;if fsopt="@" then;do;call cdromhandler;call redraw;call scroll;end;if fsopt="$" then;do;call edevhandler;call redraw;call scroll;end;if fsopt="F" then;do;soak=lang.79;send soak;if showopts=1 then showopts=2;else if showopts=2 then showopts=3;else if showopts=3 then;do;if useraccess>=lameacc then showopts=4;else showopts=1;end;else if showopts=4 then showopts=1;sl "[FList] "lang.80||showopts;call redraw(1);end;if fsopt="A" then;do;soak=lang.81;send soak;sl "[FList] "lang.68" (> "soak" <)";farea=areachange();farea=setarea(farea);call reloadfiles;call scroll;end;if fsopt="W" then;do;soak=lang.82;send soak;sl "[FList] "lang.68" (> "soak" <)";call redraw;call scroll;end;if fsopt='1B'x then fsopt="Q";if fsopt="%"&useraccess>=sysopimptaxx then;do;soak=lang.83;send soak;sl "[FList] "lang.68" (> "soak" <)";call dimport;end;if fsopt="H"&useraccess>=sysoptchtaxx then;do;soak=lang.84;send soak;sl "[FList] "lang.68" (> "soak" <)";call touch;end;if fsopt="|" then exit;if fsopt="Q" then;do;soak=lang.85;sl "[FList] "lang.68" (> "soak" <)";send soak;markemate:;maygetchar;if upper(result)="A" then signal areachange;mkf=words(markstring);alreadymarked='';lstmarkedfiles tempath"FLIST_MARKED.Tmp"bbsline;if open(in,tempath'FLIST_MARKED.Tmp'bbsline,'R') then;do;do until eof(in);amf=readln(in);alreadymarked=alreadymarked'*'amf'*';end;Call Close(in);end;address command 'delete "'tempath'FLIST_MARKED.Tmp'bbsline'" >NIL:';if open(fides,tempath'File_Id'bbsline,'W') then;do;Call Writeln(fides,'');Call Writeln(fides,'       -----------------------------------------------------------------');Call Writeln(fides,'     _[ FList - Stuart Gillibrand 1994-1997 - Digital Design Production ]_');Call Writeln(fides,lang.86||left(bbsname,39)' ]- ');Call Writeln(fides,'.-----------------------------------------------------------------------------.');Call Writeln(fides,lang.87);Call Writeln(fides,'`----------------------------------------------------------------------------- ');end;failfile=0;bagtaghag=0;tetots=0;ttfd=0;if mkf>0&compress(markstring)~="" then;do;if ~exists(tempath'Marked'bbsline) then;do;Call open(assure,tempath'Marked'bbsline,'W');Call Close(Assure);end;Call open(assure,tempath'Marked'bbsline,'A');cls;newline;markstring=strip(markstring,'T');markstring=strip(markstring,'L');PSB=0;Do Forever;If ~carrier then signal boomtown;do until pos('*'file'*',alreadymarked)=0;PSB=PSB+1;origfile=subword(markstring,psb,1);file=upper(subword(markstring,psb,1));if compress(file)="" then leave;if pos('*'file'*',alreadymarked)>0 then mkf=mkf-1;end;if compress(file)="" then leave;mintola=compress(file);filearea areaofile.mintola;send BLD||CYN||left(file,24)" ";markfile file;fullpath=result;failfile=0;if upper(fullpath)="FAIL" then;do;send RED||BLD||lang.88;failfile=1;mkf=mkf-1;newline;newline;end;if upper(fullpath)="ALLREADY" then;do;send RED||BLD||lang.89;failfile=1;newline;newline;fullpath="FAIL";mkf=mkf-1;end;if upper(fullpath)~="FAIL"&failfile=0 then;do;send yel||BLD||lang.90;if useraccess>=sysoppathtaxx then send "  "wht||bld||fullpath;call open(Incol,fullpath,'R');fsize=seek(incol,0,'E');Call Close(incol);sheekan=dltime(fsize);if enlargemark="ON" then;do;newline;send bld||yel||left(fsize" "lang.91" ",25);print bld||yel||word(sheekan,1)" "lang.92", "word(sheekan,2)" "lang.93" at "bpsrate" "lang.94;end;Call Writeln(fides,left(file,22)'  'right(fsize,8)'  'translate(descofile.mintola,d2c(10),'º'));Call writeln(assure,origfile' 'goar.mintola' 'translate(descofile.mintola,'­',' ')' 'areaofile.mintola);tetots=tetots+fsize;newline;if fpmopt="ON" then;do;if ~exists(fpmpath||file'.fpm') then pmak=1;else;do;Call Open(pmarkin,fpmpath||file'.fpm','R');pmak=readln(pmarkin);if datatype(pmak)~="NUM" then pmak=0;pmak=pmak+1;Call Close(pmarkin);end;Call Open(pmarkout,fpmpath||file'.fpm','W');Call writeln(pmarkout,pmak);Call Close(pmarkout);end;end;else bagtaghag=1;end;end;newline;if bagtaghag=1 then;do;newline;continue;cls;sendfile txtpath"FList_MarkFail.ANSI";continue;newline;end;if mkf>0 then;do;mend=dltime(tetots);sl "[FList] "lang.95"["mkf"] "lang.96" ["tetots"]";print clr||bld||lang.97" "cyn||tetots;print clr||bld||lang.98" "cyn||mkf;print clr||bld||lang.99" "cyn||word(mend,1)" "lang.92", "word(mend,2)" "lang.92".";parsec=word(mend,1);if word(mend,2)>0 then parsec=parsec+1;Call Writeln(fides,'');Call Writeln(fides,'.------------------------------------------------------------------------------.');Call Writeln(fides,'| Digital Dreams Amiga BBS UK - 44-1772-454995 - [e-mail] |');Call Writeln(fides,'|------------------------------------------------------------------------------|');Call Writeln(fides,'| 'lang.101'['right(mkf,4)']  'lang.97'['right(tetots,8)']  'lang.102'['word(mend,1)' 'lang.103', 'word(mend,2)' 'lang.104'] |');Call Writeln(fides,'`------------------------------------------------------------------------------ ');Call Writeln(fides,'');Call Close(fides);Call Close(assure);newline;si 'm';tonlin=result;if tonlin<parsec then;do;newline;print RED||lang.105||YEL||tonlin" "lang.92;print RED||lang.100||YEL||parsec" "lang.92;sl "[FList] "lang.106"["tonlin"] "lang.107" ["parsec"]";newline;print CYN||BLD||lang.108;newline;print CYN||BLD||lang.109;print CYN||BLD||lang.110;print CYN||BLD||lang.111;newline;print YEL||BLD||lang.112;newline;continue;do clare=1 to words(markstring);unmarkfile subword(markstring,clare,1);end;pageno=1;signal fscroller;end;send BLD||WHT||lang.113;call checkpath(sdlpath);if ~exists(sdlpath||username'.SDL') then;do;call Open(LivinJoy,sdlpath||username'.SDL','W');call close(LivinJoy);end;Call Open(MFOut,sdlpath||username'.SDL','R');Do until eof(mfout);if ~carrier then signal boomtown;dat=readln(mfout);data=upper(word(dat,2));smallhdd.data=":-)";End;Call close(mfout);Call Open(MFOut,sdlpath||username'.SDL','A');do psa=1 to words(markstring);If ~carrier then signal boomtown;sirenag=upper(subword(markstring,psa,1));if jam.buttie.sirenag="Don't Even Ask :-)" then iterate;if sirenag="" then leave;nicenripe="";if areaofile.mintola~="AREAOFILE."mintola&areaofile.mintola~="" then nicenripe=areaofile.mintola' 'sirenag' 'translate(descofile.sirenag,'­',' ')' 'goar.sirenag;if smallhdd.sirenag~=":-)" then Call Writeln(MFOut,nicenripe);end;Call Close(MFOut);print RED"Saving Complete.";print clr||GRN||BLD||lang.114" `"FSH"!"clr||BLD||GRN"' "lang.115;newline;locl=0;if word(lres,1)=80&word(lres,3)~=0 then;do;queryn clr||BLD||WHT||lang.116;if upper(result)="Y" then;do;protocolsend tempath"File_Id"bbsline;address command 'Delete "'tempath'File_Id'bbsline'" >NIL:';end;end;else continue;end;send clr;cls;signal boomtown;end;if fsopt="C"&checkoffline=0 then;do;soak=lang.117;send soak;checkoffline=1;fsopt="";send clr""scrln+7";0H"kl||WHT||lang.118;address command "WAIT "defwait" >NIL:";send ""scrln+7";0H"kl;end;if fsopt="C"&checkoffline=1 then;do;soak=lang.119;send soak;checkoffline=0;fsopt="";send clr""scrln+7";0H"kl||WHT||lang.120;address command "WAIT "defwait" >NIL:";send ""scrln+7";0H"kl;end;if fsopt="="|fsopt="+" then;do;soak=lang.121;send soak;sl "[FList] "lang.68" (> "soak" <)";scrln=scrln+1;call redraw;send "H"YEL||BLD||lang.122||clr;end;if fsopt="-"&scrln>3 then;do;soak=lang.123;send soak;sl "[FList] "lang.68" (> "soak" <)";scrln=scrln-1;call redraw;send "H"YEL||BLD||lang.122||clr;end;if fsopt="T" then;do;soak=lang.124;send soak;scrln=screenln-8;if scrln<2 then scrln=2;call redraw;call scroll;end;if fsopt="*"&bebob>2 then;do;soak=lang.125;send soak;sl "[FList] "lang.68" (> "soak" <)";call sort;end;if (fsopt="M"&bebob>2)&start<bebob then;do;soak=lang.126;send soak;sl "[FList] "lang.68" (> "soak" <)";call mark;end;if (fsopt="R"&bebob>2)&start<bebob then;do;soak=lang.127;send soak;sl "[FList] "lang.68" (> "soak" <)";call arcmark;end;if (fsopt="O"&bebob>2)&start<bebob then;do;soak=lang.128;send soak;sl "[FList] "lang.68" (> "soak" <)";call mormark;end;if (fsopt="V"&useraccess>=sysopmovetaxx)&start<bebob then;do;soak=lang.129;send soak;sl "[FList] "lang.68" (> "soak" <)";call movefile;end;if (fsopt="D"&useraccess>=sysopdeltaxx)&start<bebob then;do;soak=lang.130;send soak;sl "[FList] "lang.68" (> "soak" <)";call delfile;end;if (fsopt="Y"&useraccess>=sysopcopytaxx)&start<bebob then;do;soak=lang.131;send soak;sl "[FList] "lang.68" (> "soak" <)";call copfile;end;if (fsopt="Z"&useraccess>=sysopexetaxx&bebob>2)&start<bebob then;do;soak=lang.132;send soak;sl "[FList] "lang.68" (> "soak" <)";call exefile;end;if (fsopt="."&useraccess>=sysopicetaxx)&start<bebob then;do;soak=lang.133;send soak;sl "[FList] "lang.68" (> "soak" <)";call icefile;end;if fsopt="S"&bebob>2 then;do;soak=lang.134;send soak;sl "[FList] "lang.68" (> "soak" <)";call searchforfile;end;if (fsopt="E"&bebob>2)&start<bebob then;do;soak=lang.135;send soak;sl "[FList] "lang.68" (> "soak" <)";call rtxtphile;end;if (fsopt="X"&useraccess>=sysopterntaxx) then;do;soak=lang.136;send soak;sl "[FList] "lang.68" (> "soak" <)";call extdir;end;if (fsopt="N"&useraccess>=sysopnketaxx)&start<bebob then;do;soak=lang.137;send soak;sl "[FList] "lang.68" (> "soak" <)";call nukefile;end;if open(chk,giddy,'r') then;do;newsize=seek(chk,0,'E');call close(chk);end;if newsize~=oldsize&extdir=0 then;do;forceload=1;call alertit(clr||red||bld||lang.138);sl "[FList] "lang.139;call reloadfiles;call scroll;end;if pos('|'fsopt'|',optsline)=0 then bad=bad+1;else bad=0;if bad=failedcmd then;do;call alertit(clr||red||bld||lang.140);sendfile txtpath"FLISTMAINHELP";newline;continue;call redraw;call scroll;bad=0;end;fsopt="";end;exit;searchforfile:;opag=pageno;turbotoon=0;query ""scrln+7";0H"YEL||lang.141||CYN;sopostsf=upper(Result);if sopostsf="RESULT" then;do;send ""scrln+7";0H"kl;return;end;send ""scrln+7";0H"kl||CYN||bld||lang.142||YEL"["WHT||sopostsf||YEL"]"CYN" ... "GRN;sl "[FList] String: ["sopostsf"]";do z=1 to bebob;if turbotoon=0&right(z,1)='0' then send right(z,5,'0')"/"right(bebob,5,'0')"D";if pos(sopostsf,upper(currfname.z))>0 then;do;opag=pageno;start=z;if z<=Scrln then;do;pageno=1;start=1;end;else;do;pint=z/scrln;dink=pos('.',pint);if dink>0 then pageno=left(pint,dink-1)+1;else pageno=pint+1;start=(pageno-1)*scrln;end;if z>Start then nird=z-start;else nird=0;send ""scrln+7";0H"kl||WHT||lang.143||clr;send ""scrln+7";0H"kl;send clr"H";if opag~=pageno|pageno=pages then call scroll;send ""nird+3";0H";if left(currfname.z,1)~="\" then send UND||BLD||PNK||left(ansify(z),93)||clr;else send kl||UND||col_desc||BLD||left(right(currfname.z,length(currfname.z)-1),78)||clr||col_file;if turbotoon=0 then;do;do until gwantanoma="C";send ""scrln+7";0H";send clr||bld||cyn"("yel"C"cyn")"grn||lang.144||cyn"("yel"M"cyn")"grn||lang.145||cyn"("yel"A"cyn")"grn||lang.146||cyn"("yel"T"cyn")"grn||lang.147||wht||fsh"::> "clr;bufferflush;gc;gwantanoma=upper(result);send ""nird+3";0H";if gwantanoma="T" then;do;turbotoon=1;row=nird+3;if left(currfname.z,1)="\" then;do;zelda=z;do until left(currfname.zelda,1)~="\";row=row-1;zelda=zelda-1;end;if row<3 then;do;start=start-scrln;pageno=pageno-1;call scroll;row=(zelda-start)+3;end;if strip(upper(substr(currfname.zelda,40,40)),'T')="FILE_ID.DIZ DESCRIPTION" then call submark(zelda);end;else call submark(z);gwantanoma="C";end;if gwantanoma="M" then;do;row=nird+3;if left(currfname.z,1)="\" then;do;zelda=z;do until left(currfname.zelda,1)~="\";row=row-1;zelda=zelda-1;end;if row<3 then;do;start=start-scrln;pageno=pageno-1;call scroll;row=(zelda-start)+3;end;if strip(upper(substr(currfname.zelda,40,40)),'T')="FILE_ID.DIZ DESCRIPTION" then call submark(zelda);end;else call submark(z);end;if gwantanoma="A" then;do;send ""scrln+7";0H"kl;return;end;if ~carrier then signal boomtown;end;end;else;do;tip=upper(word(currfname.z,1));if mark.tip.goarea="Y" then break;row=nird+3;if left(currfname.z,1)="\" then;do;zelda=z;do until left(currfname.zelda,1)~="\";row=row-1;zelda=zelda-1;end;tip=upper(word(currfname.zelda,1));if mark.tip.goarea="Y" then break;if row<3 then;do;start=start-scrln;pageno=pageno-1;call scroll;row=(zelda-start)+3;end;if strip(upper(substr(currfname.zelda,40,40)),'T')="FILE_ID.DIZ DESCRIPTION" then call submark(zelda);end;else call submark(z);end;send ""scrln+7";0H"kl||CYN||bld||lang.142||YEL"["WHT||sopostsf||YEL"]"CYN" ...";end;end;send ""scrln+7";0H"kl||WHT||bld||lang.148||clr;address command "WAIT "defwait" >NIL:";send ""scrln+7";0H"kl;return;scroll:;print ""scrln+3";24H"clr||col_bar||yel||bld||fsh"þ"clr;if sfmeth=0 then;do;send "H";send clr||col_file;do i=start to start+(scrln-1);if i>bebob then currfname.i="\";if left(currfname.i,1)="\" then print kl||col_desc||BLD||translate(substr(currfname.i,2,78)," ",d2c(9))||clr||col_file;else;do;tip=upper(word(currfname.i,1));if mark.tip.goarea="Y" then send RED||BLD;print left(ansify(i),93)||clr||col_file;if checkoffline=1 then if ~exists(areapath||word(currfname.i,1)) then;do;print "[["areapath||word(currfname.i,1)"]]";getchar;print "AC"RED||BLD||FSH||lang.149||clr;getchar;exit;end;end;end;end;else;do;call open(out,tempath'GsaPar'bbsline,'w');call writech(out,"H");call writech(out,clr||col_file);do i=start to start+(scrln-1);if i>bebob then currfname.i="\";if left(currfname.i,1)="\" then call writeln(Out,kl||col_desc||BLD||translate(substr(currfname.i,2,78)," ",d2c(9))||clr||col_file);else;do;tip=upper(word(currfname.i,1));if mark.tip.goarea="Y" then call writech(out,RED||BLD);call writeln(out,left(ansify(i),93)||clr||col_file);if checkoffline=1 then if ~exists(areapath||word(currfname.i,1)) then call writeln(out,"AC"RED||BLD||FSH||lang.149||clr);end;end;call close(out);send ""scrln+7";0H"kl;sendfile tempath"GsaPar"bbsline;end;print BLD||col_bar||WHT""scrln+3"HF"ubld"List "bld||left(lang.150,1)||ubld||substr(lang.150,2)" "bld"("blk||bld||lang.151" "showopts||wht")"clr||col_bar||BLK" þ "BLD||col_bar||red"["grn||right(pageno,length(pages),'0')||WHT"/"YEL||pages||red"]   "clr;return;movefile:;if compress(markstring)="" then;do;call alertit(RED||BLD||lang.152);return;end;comeback=customquest(lang.420);if upper(comeback)~="Y" then return;si '2';curraread=result;marea=areachange();call scroll;print ""scrln+4"H"kl;send ""scrln+4"H"BLD||WHT||lang.153||clr;do words(markstring);send ".";end;do pork=1 to words(markstring);send ""scrln+4";"pork+8"H"clr||bld||red"o";send clr"A2H"GRN||lang.154||WHT||mkf" ";disfilen=word(markstring,pork);ddisfilen=upper(disfilen);zink=areaofile.ddisfilen;areapath=npat.zink;mkf=mkf-1;ger=goar.ddisfilen;mark.ddisfilen.ger="N";if areaofile.ddisfilen=marea then iterate;if ~Open(in,goar.ddisfilen,'R') then iterate;Call Open(out,tempath'flistmove.tmp'bbsline,'W');tcptg=0;vanessa=0;Do Until eof(in);If ~carrier then signal boomtown;if vanessa=0 then ri=readln(in);vanessa=0;if upper(word(ri,1))~=upper(disfilen)&ri~="" then Call Writeln(out,ri);if upper(word(ri,1))=upper(disfilen)&ri~="" then;do;mfl=ri;if pos("FILE_ID.DIZ DESCRIPTION",upper(substr(ri,40,40,)))>0 then;do;tcptg=1;daytona=0;do until left(ri,1)~="\";daytona=daytona+1;ri=readln(in);fidbit.daytona=ri;end;daytona=daytona-1;vanessa=1;end;end;end;Call Close(in);Call Close(out);if extdir=0 then address command 'copy "'tempath'flistmove.tmp'bbsline'" "'goar.ddisfilen'" noreq >NIL:';address command 'delete "'tempath'flistmove.tmp'bbsline'" >NIL:';newline;FILEAREA marea;si '7';mpath=upper(result);sl "[FList] Moving ["areapath||disfilen"] To ["mpath"]";address command 'COPY "'areapath||disfilen'" "'mpath'" noreq >NIL:';if extdir=0 then address command 'DELETE "'areapath||disfilen'" >NIL:';address command 'COPY "'areapath||disfilen'.DESC" "'mpath'" noreq >NIL:';if extdir=0 then address command 'DELETE "'areapath||disfilen'.DESC" >NIL:';if Call Open(out,mpath'files.bbs','A')=1 then nop;else call open(out,mpath'files.bbs','w');Call Writeln(out,mfl);if tcptg=1 then;do;do nemesis=1 to daytona;Call Writeln(out,fidbit.nemesis);end;end;Call Close(out);end;if extdir=0 then call setarea(curraread);send clr"A2H"GRN||lang.154||WHT||mkf" ";row=row-1;call tenf;if smeeegheed=1 then return;call louise_sleeper;mkf=0;markstring="";if smeeegheed=1 then return;if bebob<3 then return;return;delfile:;if compress(markstring)="" then;do;call alertit(RED||BLD||lang.152);return;end;query ""scrln+7";0H"kl||pnk||bld||lang.155||yel"- "grn"y"blu"/"red"N "cyn"?"ubld"> "bld||wht;toddterry=result;send clr""scrln+7";0H"kl;if upper(toddterry)~="Y" then return;if compress(markstring)="" then return;print ""scrln+4"H"kl;send ""scrln+4"H"BLD||WHT||lang.156||clr;do words(markstring);send ".";end;do pork=1 to words(markstring);send ""scrln+4";"pork+9"H"clr||bld||red"o";send clr"A2H"GRN||lang.154||WHT||mkf" ";disfilen=word(markstring,pork);ddisfilen=upper(disfilen);zink=areaofile.ddisfilen;areapath=npat.zink;Call Open(in,goar.ddisfilen,'R');Call Open(out,tempath'flistmove.tmp'bbsline,'W');tcptg=0;vanessa=0;Do Until eof(in);If ~carrier then signal boomtown;if vanessa=0 then ri=readln(in);vanessa=0;if upper(word(ri,1))~=upper(disfilen)&ri~="" then Call Writeln(out,ri);if upper(word(ri,1))=upper(disfilen)&ri~="" then;do;mfl=ri;if pos("FILE_ID.DIZ DESCRIPTION",upper(substr(ri,40,40,)))>0 then;do;tcptg=1;daytona=0;do until left(ri,1)~="\";daytona=daytona+1;ri=readln(in);fidbit.daytona=ri;end;daytona=daytona-1;vanessa=1;end;end;end;Call Close(in);Call Close(out);sl "[FList] Deleting ["areapath||disfilen"]";if extdir=0 then address command 'COPY "'tempath'flistmove.tmp'bbsline'" "'goar.ddisfilen'" noreq >NIL:';else address command 'COPY "'tempath'flistmove.tmp'bbsline'" "File:FlistExd/Files.BBS" noreq >NIL:';address command 'delete "'tempath'flistmove.tmp'bbsline'" force >NIL:';address command 'delete "'areapath||disfilen'" force >NIL:';address command 'delete "'areapath||disfilen'.DESC" force >NIL:';ger=goar.ddisfilen;mark.ddisfilen.ger="N";mkf=mkf-1;end;markstring="";mkf=0;call alertit(clr||red||bld||lang.157);call scroll;send clr"A2H"GRN||lang.154||WHT||mkf" ";row=row-1;call tenf;if smeeegheed=1 then return;call louise_sleeper;if smeeegheed=1 then return;if bebob<3 then return;return;copfile:;if compress(markstring)="" then;do;call alertit(RED||BLD||lang.152);return;end;comeback=customquest(lang.421);if upper(comeback)~="Y" then return;send clr""scrln+7";0H";query CYN||lang.158||YEL"\\RAM:";fullcpath=result;if compress(markstring)="" then return;if ~exists(fullcpath) then send clr""scrln+7";0H"bld||cyn||lang.159||clr;call checkpath(fullcpath);print ""scrln+4"H"kl;send ""scrln+4"H"BLD||WHT||lang.160||clr;do words(markstring);send ".";end;do pork=1 to words(markstring);send ""scrln+4";"pork+9"H"clr||bld||red"o";send clr"A2H"GRN||lang.154||WHT||mkf" ";disfilen=word(markstring,pork);ddisfilen=upper(disfilen);zink=areaofile.ddisfilen;areapath=npat.zink;sl "[Flist] "lang.161"["areapath||disfilen"]"lang.162"["fullcpath"]";address command 'COPY "'areapath||disfilen'" "'fullcpath'" noreq >NIL:';ger=goar.ddisfilen;mark.ddisfilen.ger="N";mkf=mkf-1;end;call alertit(clr||red||bld||lang.163);send clr""scrln+7";0H"kl;send clr"A2H"GRN||lang.154||WHT||mkf" ";call tenf;call scroll;if smeeegheed=1 then return;call louise_sleeper;mkf=0;comeback=customquest(lang.427);if upper(comeback)~="Y" then call sdoubleudoublev;else markstring="";if smeeegheed=1 then return;if bebob<3 then return;return;icefile:;if compress(markstring)="" then;do;call alertit(RED||BLD||lang.152);return;end;comeback=customquest(lang.422);if upper(comeback)~="Y" then return;send clr""scrln+7";0H";query clr||CYN"("BLD"T"ubld")"lang.164"("BLD"E"ubld")"lang.165"("BLD"X"ubld")"lang.166" "YEL"\\E";icemode=upper(result);if icemode~="T"&icemode~="E"&icemode~="X" then icemode="T";if icemode="E"|icemode="X" then;do;send clr""scrln+7";0H";query CYN||lang.167||YEL"\\RAM:";fullcpath=result;if compress(markstring)="" then;do;call redraw;call scroll;return;end;end;send clr""scrln+7";0H";if compress(fullcpath)=""|fullcpath="RESULT" then return;if ~open(bzoo,tempath'IceIceBaby'bbsline,'w') then;do;alertit(clr||red||bld||lang.168" ["tempath"IceIceBaby"bbsline"] ! :(");sl "[Flist] "lang.169" ["tempath"IceIceBaby"bbsline"]!";signal boomtown;end;call writeln(bzoo,'failat 99999');call writeln(bzoo,'stack 32000');call writeln(bzoo,'echo');do pork=1 to words(markstring);disfilen=word(markstring,pork);ddisfilen=upper(disfilen);sl "[FList] "lang.170" {"disfilen"}";zink=areaofile.ddisfilen;areapath=npat.zink;sl "[FList] "lang.170" ["areapath||disfilen"]"lang.162"["fullcpath"]";call writeln(bzoo,'echo "H"');if icemode="X" then call writeln(bzoo,'icearc -xc "'areapath||disfilen'" "'fullcpath'"');if icemode="E" then call writeln(bzoo,'icearc -x "'areapath||disfilen'" "'fullcpath'"');if icemode="T" then call writeln(bzoo,'icearc -t "'areapath||disfilen'" "'fullcpath'"');ger=goar.ddisfilen;mark.ddisfilen.ger="N";mkf=mkf-1;end;call writeln(bzoo,'endcli');call close(bzoo);cls;address command 'NewShell FIFO:ddshell'id'/rwkecs FROM "'tempath'IceIceBaby'bbsline'"';address command binpath'TrShell -c -d -e -f -n'bbsline' -fddshell'id;address command 'Delete "'tempath'IceIceBaby'bbsline'" >NIL:';newline;continue;mkf=0;comeback=customquest(lang.427);if upper(comeback)~="Y" then call sdoubleudoublev;else markstring="";call redraw;call scroll;return;nukefile:;if compress(markstring)="" then;do;call alertit(RED||BLD||lang.152);return;end;comeback=customquest(lang.423);if upper(comeback)~="Y" then return;do pork=1 to words(markstring);disfilen=word(markstring,pork);ddisfilen=upper(disfilen);zink=areaofile.ddisfilen;areapath=npat.zink;send clr""scrln+7";0H";nast=1;sl "[FList] "lang.171" {"disfilen"}...";query clr||cyn||bld||disfilen": "lang.172" "yel"\\N";if upper(result)="Y" then;do;send clr""scrln+7";0H";prompt 2 'NORMAL "'clr||bld||cyn||lang.173' 'clr'"';nast=result;if datatype(nast)~="NUM" then nast=1;end;sl "[FList] "lang.174" "nast;if ~open(nukename,areapath||disfilen'.desc','r') then;do;call alertit(RED||BLD||lang.175);sl "[FList] "lang.176;iterate;end;eman=readln(nukename);call close(nukename);if ~open(in,usrpath||eman,'r') then;do;call alertit(RED||BLD||lang.177);sl "[FList] "lang.178;iterate;end;do i=1 to 45;usrdat.i=readln(in);end;call close(in);flrem=1*nast;usrdat.14=compress(usrdat.14)-flrem;sizeofile=word(statef(areapath||ddisfilen),2);byrem=sizeofile*nast;gigar=byrem/1024;if pos('.',gigar)>0 then gigar=left(gigar,pos('.',gigar)-1);usrdat.13=compress(usrdat.13)-gigar;call open(out,usrpath||eman,'w');do i=1 to 45;call writeln(out,usrdat.i);end;call close(out);ger=goar.ddisfilen;mark.ddisfilen.ger="N";mkf=mkf-1;call alertit(RED||BLD||flrem" "lang.179" "byrem" "lang.180" "caseconvert(eman));send clr""scrln+7";0H"grn||bld||lang.181;call open(in,cfgpath'FList.NukeReport','r');call open(tgout,'ram:Nuke.Txt','w');do until eof(in);data=readln(in);do until hell=0;hell=checkmenoo();end;if ~eof(in) then call writeln(tgout,data);end;call close(in);hell=1;call alertit(RED||BLD||disfilen": "lang.182);textedit;choc=result;call redraw;call scroll;if choc="###ABORTED" then call writeln(tgout,lang.183);else;do;craydead='T:Editor';if bbsline>0 then roncr='_'bbsline'.Temp';else roncr='.Temp';call open(tgin,craydead||roncr,'r');do until eof(tgin);data=readln(tgin);if eof(tgin) then leave;do until hell=0;hell=checkmenoo();end;call writeln(tgout,data);end;call close(tgin);end;call close(tgout);send clr""scrln+7";0H"grn||bld||lang.184;call trapghost('"'tgmailpath'" "ram:nuke.txt" "FList Nuke Server" "'caseconvert(eman)'" "FList Nuke Server - 'lang.185'"');call alertit(RED||BLD||disfilen": "lang.186);sl "[FList] {"disfilen"} "lang.187;end;mkf=0;comeback=customquest(lang.427);if upper(comeback)~="Y" then call sdoubleudoublev;else markstring="";return;checkmenoo:;pip=pos('%f',data);if pip>0 then;do;data=delstr(data,pip,2);data=insert(disfilen,data,pip-1,length(disfilen),);end;pip=pos('%s',data);if pip>0 then;do;data=delstr(data,pip,2);data=insert(sizeofile,data,pip-1,length(sizeofile),);end;pip=pos('%D',data);if pip>0 then;do;data=delstr(data,pip,2);monk=translate(descofile.ddisfilen,d2c(10),'º');data=insert(monk,data,pip-1,length(monk),);end;pip=pos('%u',data);if pip>0 then;do;data=delstr(data,pip,2);data=insert(username,data,pip-1,length(username),);end;pip=pos('%F',data);if pip>0 then;do;data=delstr(data,pip,2);data=insert(flrem,data,pip-1,length(flrem),);end;pip=pos('%B',data);if pip>0 then;do;data=delstr(data,pip,2);data=insert(byrem,data,pip-1,length(byrem),);end;pip=pos('%x',data);if pip>0 then;do;data=delstr(data,pip,2);data=insert(nast,data,pip-1,length(nast),);end;return(pip);editdesc:;print clr""scrln+7";0H"YEL||BLD||lang.188" -["CYN||WHT"M/Return"CYN||lang.162||WHT||lang.189||CYN", "WHT"Q/Esc"CYN||lang.162||WHT||lang.190||CYN", "WHT"8+2/Cursors"CYN||lang.162||WHT||lang.191||YEL"]-"clr;call tenf;if smeeegheed=1 then return;call louise_sleeper;do forever;if ~carrier then signal boomtown;raw=(start+row)-3;tip=upper(word(currfname.raw,1));send BBLU||BLD||WHT;if mark.tip.goarea="Y" then send BRED||CYN||BLD;send ''row'HC'left(substr(currfname.raw,40,length(currfname.raw)-39),40);bufferflush;gc;markopt=upper(result);if c2d(markopt)=13 then markopt="M";if markopt='1B'x then markopt="Q";If markopt='9b'x|markopt='5B'x then;Do;maygetchar;Tmp=result;If Tmp='A' then markopt='8';If Tmp='B' then markopt='2';If Tmp='C'&pageno<pages then;do;pageno=pageno+1;start=start+scrln;call scroll;signal editdesc;end;If Tmp='D' then if START>1 then;do;if start-scrln<1 then start=scrln+1;pageno=pageno-1;start=start-scrln;call scroll;signal editdesc;end;End;if markopt="2" then;do;replin=downer();if replin=1 then signal editdesc;end;shutupbeavis=0;if markopt="8" then call uppa;if markopt="M" then;do;whoupped="";if useraccess>=sysopdesctaxx then whoupped=upper(username);if open(findwho,areapath||word(currfname.raw,1)'.Desc','R')&userAccess<=(sysopdesctaxx) then;do;whoupped=upper(readln(findwho));Call Close(findwho);end;if whoupped~=upper(username) then;do;call alertit(clr||RED||BLD||lang.192);call restip;return;end;send ""row"HC"BBLU;deezco=substr(currfname.raw,40,40,);melk=raw+1;if (upper(strip(deezco,'T'))~="FILE_ID.DIZ DESCRIPTION")|(upper(strip(deezco,'T'))="FILE_ID.DIZ DESCRIPTION"&left(currfname.melk,1)~="\") then;do;query "\\"strip(deezco,'T');newdesc=result;if newdesc=upper(result) then newdesc="[FList] "lang.193;sl "[FList] "lang.194" "word(currfname.raw,1)||lang.195" ["strip(substr(currfname.raw,40,40,),'T')"]"lang.162"["newdesc"]";currfname.raw=left(currfname.raw,39)||newdesc;end;else;do;send ""row"H"clr||left(ansify(raw),93,' ');do melk=raw+1 to bebob-1;if left(currfname.melk,1)~="\" then leave;if (melk-start+3)=(scrln+3) then;do;pageno=pageno+1;start=start+scrln;call scroll;end;send ""melk-start+3"HC"clr||yel||bld||BBLU;deezco=substr(currfname.melk,35,45,);query "\\"strip(deezco,'T');newdesc=result;if upper(newdesc)="RESULT" then newdesc="";send ""melk-start+3"HC"clr||col_desc||bld||newdesc;if newdesc=upper(result) then newdesc="[FList] "lang.193;sl "[FList] DIZ "lang.194" "word(currfname.raw,1)||lang.196||melk" "lang.197" ["strip(substr(currfname.melk,35,45,),'T')"]"lang.162"["newdesc"]";currfname.melk=left(currfname.melk,34)||newdesc;end;call louise_sleeper;end;call spinwrite;send clr"H";end;if markopt="Q" then;do;print ""scrln+7";0H"clr||kl;send clr"H";call restip;return;end;end;send clr"H";call restip;signal editdesc;exefile:;print clr""scrln+7";0H"YEL||BLD||lang.198" -["CYN||WHT"M/Return"CYN||lang.162||WHT||lang.189||CYN", "WHT"Q/Esc"CYN||lang.162||WHT||lang.190||CYN", "WHT"8+2/Cursors"CYN||lang.162||WHT||lang.191||YEL"]-"clr;call tenf;if smeeegheed=1 then return;call louise_sleeper;do forever;if ~carrier then signal boomtown;raw=(start+row)-3;send BRED||BLD||WHT;tip=upper(word(currfname.raw,1));if mark.tip.goarea="Y" then send BRED||CYN||BLD;send ''row'H'left(ansify(raw),22);bufferflush;gc;markopt=upper(result);if c2d(markopt)=13 then markopt="M";if markopt='1B'x then markopt="Q";If markopt='9b'x|markopt='5B'x then;Do;maygetchar;Tmp=result;If Tmp='A' then markopt='8';If Tmp='B' then markopt='2';If Tmp='C'&pageno<pages then;do;pageno=pageno+1;start=start+scrln;call scroll;signal exefile;end;If Tmp='D' then if START>1 then;do;if start-scrln<1 then start=scrln+1;pageno=pageno-1;start=start-scrln;call scroll;signal exefile;end;End;if markopt="2" then;do;replin=downer();if replin=1 then signal exefile;end;shutupbeavis=0;if markopt="8" then call uppa;if markopt="M" then;do;nareapath=areapath;newline;query clr""scrln+7";0H"kl||lang.199" "cyn"\\"precommexe||areapath||word(currfname.raw,1);cl=result;if upper(Cl)="RESULT" then cl='echo "'lang.200'"';sl "[FList] "lang.201" ["cl"]...";if ~exists(cfgpath"Flist.TRS") then address command 'echo "Failat 9999" >'cfgpath'FList.TRS';address command 'Copy 'cfgpath'FList.TRS "'tempath'FList.TRS'bbsline'" noreq';call open(trs,tempath'flist.trs'bbsline,'a');call writeln(trs,cl);call writeln(trs,'endcli');call close(trs);id=time(s);cls;address command 'NewShell FIFO:trshell'id'/rwkecs FROM "'tempath'Flist.TRS'bbsline'"';address command binpath'TrShell -c -d -e -f -n'bbsline' -ftrshell'id;newline;continue;address command 'Delete "'tempath'FList.TRS'bbsline'" >NIL:';print "A"kl;send clr"H";call redraw;call scroll;end;if markopt="Q" then;do;print ""scrln+7";0H"clr||kl;send clr"H";call restip;return;end;end;send clr"H";call restip;signal exefile;mark:;if tailmark~=1 then tailmark=0;print clr""scrln+7";0H"YEL||BLD||lang.202" -["CYN||WHT"M/Ret"CYN" - "WHT||lang.203||CYN", "WHT"Q/Esc"CYN" - "WHT||lang.190||CYN", "WHT"8+2/Cursors"CYN" - "WHT||lang.204||CYN", "WHT"T"CYN" - "WHT||lang.205||YEL"]-"clr;call tenf;if smeeegheed=1 then return;call louise_sleeper;do forever;if ~carrier then signal boomtown;raw=(start+row)-3;send BBLU||BLD||WHT;tip=upper(word(currfname.raw,1));if tailmark=1 then;do;if (raw=(start+scrln-1)&disraw=start)|raw<tailstart then;do;replin=downer();tip=upper(word(currfname.raw,1));if replin=1 then signal mark;if mark.tip.goarea="Y" then send clr||BLD||RED""row"H"left(ansify(raw),93);else send ''row'H'left(ansify(raw),93)||wht||bld||bblu;end;else disraw=raw;end;if mark.tip.goarea="Y" then;do;send BBLU||RED||BLD''row'H'left(ansify(raw),21);zink=areaofile.tip;if exists(npat.zink||word(currfname.raw,1)) then;do;Call Open(In,npat.zink||word(currfname.raw,1),'R');folisize=seek(In,0,'E');Call Close(In);prevmarx=0;if fpmopt="ON" then;do;if ~exists(fpmpath||word(currfname.raw,1)'.fpm') then prevmarx=0;else;do;Call Open(In,fpmpath||word(currfname.raw,1)'.fpm','R');prevmarx=readln(in);Call close(in);end;send left(''row'HC 'YEL||lang.206' 'GRN||right(prevmarx,5,'0')||YEL' 'lang.207' 'GRN||word(dltime(folisize),1)' 'lang.103' 'word(dltime(folisize),2)' 'lang.104,85);end;else send left(''row'HC 'YEL||lang.207' 'GRN||word(dltime(folisize),1)' 'lang.92' 'word(dltime(folisize),2)' 'lang.93,75);end;end;else send ''row'H'left(ansify(raw),21);if tailmark=1 then;do;if raw~=tailstart then send clr||bld||grn""row"HC|"clr;else;do;if mark.tip.goarea="Y" then send clr||bld||yel""row"HC^"bblu||wht;else send clr||bld||yel""row"HC^"clr;end;end;bufferflush;gc;markopt=upper(result);if c2d(markopt)=13 then markopt="M";if markopt='1B'x then markopt="Q";If markopt='9b'x|markopt='5B'x then;Do;maygetchar;Tmp=result;If Tmp='A' then markopt='8';If Tmp='B' then markopt='2';If Tmp='C'&pageno<pages then;do;pageno=pageno+1;start=start+scrln;call scroll;signal mark;end;If Tmp='D' then if START>1 then;do;if start-scrln<1 then start=scrln+1;pageno=pageno-1;start=start-scrln;call scroll;signal mark;end;End;if markopt="2" then;do;replin=downer();if replin=1&tailmark=0 then signal mark;end;shutupbeavis=0;if markopt="8" then call uppa;if markopt="."&tailmark=0 then;do;if mark.tip.goarea="Y" then send clr||BLD||RED""row"H"left(ansify(raw),93);else send clr||wht''row'H'left(ansify(raw),93)||clr;redrow=((scrln%2)+3);dedrow=(start+redrow)-3;if left(currfname.dedrow,1)~="\" then row=redrow;end;if markopt="T"&tailmark=0 then;do;tailmark=1;tailstart=raw;disraw=raw;send clr||bld||yel""row"HC^"clr;end;else if markopt="T"&tailmark=1 then;do;call endtail;end;if markopt="M" then call submark(raw);if markopt="Q" then;do;if tailmark=1 then call endtail;print ""scrln+7";0H"clr||kl;send clr"H";call restip;return;end;end;send clr"H";call restip;signal mark;endtail:;tailmark=0;send clr||bld||yel""row"HCv"clr;sugardaddy=raw;do busyevil=tailstart to sugardaddy;if left(currfname.busyevil,1)="\" then busyevil=busyevil+1;if left(currfname.busyevil,1)="\" then iterate;row=((busyevil-start)+3);call submark(busyevil);tip=upper(word(currfname.busyevil,1));if mark.tip.goarea="Y" then send clr||BLD||RED""row"H"left(ansify(raw),93);else send ''row'H'left(ansify(raw),93);end;return;arcmark:;if compress(markstring)="" then;do;call alertit(RED||BLD||lang.152);return;end;comeback=customquest(lang.424);if upper(comeback)~="Y" then return;send clr""scrln+7";0H";do pork=1 to words(markstring);disfilen=word(markstring,pork);ddisfilen=upper(disfilen);sl "[FList] "lang.208" {"disfilen"}";zink=areaofile.ddisfilen;areapath=npat.zink;sl "[FList] "lang.209" ["areapath||disfilen"]";address command 'icearc -l "'areapath||disfilen'" >"'tempath'FListArc.Tmp'bbsline'"';if open(in,tempath'flistarc.tmp'bbsline,'R') then;do;send clr"H";bathroom=0;do until eof(in);If ~carrier then signal boomtown;do lcareful=1 to scrln-1;data=readln(in);bathroom=bathroom+1;if bathroom>13 then print kl||left(data,78);else print kl||data;end;print kl"A";if eof(in) then newline;dork=morepro();if dork=0 then leave;send clr"H";end;buggeroff=0;address command 'DELETE "'tempath'FLIST.TMP'bbsline'" >NIL:';Call Close(in);end;ger=goar.ddisfilen;mark.ddisfilen.ger="N";mkf=mkf-1;end;mkf=0;comeback=customquest(lang.427);if upper(comeback)~="Y" then call sdoubleudoublev;else markstring="";call scroll;call redraw(1);return;mormark:;print clr""scrln+7";0H"YEL||BLD||lang.210" -["CYN||WHT"M/Return"CYN||lang.162||WHT||lang.189||CYN", "WHT"Q/Esc"CYN||lang.162||WHT||lang.190||CYN", "WHT"8+2/Cursors"CYN||lang.162||WHT||lang.191||YEL"]-"clr;call tenf;if smeeegheed=1 then return;call louise_sleeper;do forever;if ~carrier then signal boomtown;raw=(start+row)-3;send BBLU||BLD||WHT;tip=upper(word(currfname.raw,1));if mark.tip.goarea="Y" then send BBLU||RED||BLD;send ''row'H'left(ansify(raw),22);bufferflush;gc;markopt=upper(result);if c2d(markopt)=13 then markopt="M";if markopt='1B'x then markopt="Q";If markopt='9b'x|markopt='5B'x then;Do;maygetchar;Tmp=result;If Tmp='A' then markopt='8';If Tmp='B' then markopt='2';If Tmp='C'&pageno<pages then;do;pageno=pageno+1;start=start+scrln;call scroll;signal mormark;end;If Tmp='D' then if START>1 then;do;if start-scrln<1 then start=scrln+1;pageno=pageno-1;start=start-scrln;call scroll;signal mormark;end;End;if markopt="2" then;do;replin=downer();if replin=1 then signal mormark;end;shutupbeavis=0;if markopt="8" then call uppa;if markopt="M" then;do;nodesc=1;uld="<Unknown>";call clearsarea;if left(currfname.raw,1)="\" then break;if exists(areapath||word(currfname.raw,1)".Desc") then;do;if Open(in,areapath||word(currfname.raw,1)".Desc",'R') then;do;uld=readln(in);nodesc=0;end;end;send clr"H";print kl"A";newline;newline;newline;print YEL||BLD||lang.211" : "CYN||caseconvert(uld);newline;sl "[FList] "lang.212" ["word(currfname.raw,1)"]";print YEL||lang.213": "CYN||word(currfname.raw,1);print YEL||lang.214": "CYN||left(substr(currfname.raw,40),40);mon=substr(substr(currfname.raw,33,6,),3,2,);mont=geniushaha.mon;print YEL||lang.215": "CYN||substr(currfname.raw,37,2,)'-'mont'-'substr(currfname.raw,33,2,);newline;if Open(ish,areapath||word(currfname.raw,1),'R') then;do;fsize=seek(ish,0,'E');Call Close(ish);end;else fsize=0;newline;print BLD||YEL||lang.216": "CYN||fsize" "lang.91;print BLD||YEL||lang.217": "CYN||bpsrate||clr||YEL" - "lang.218": "CYN||BLD||word(dltime(fsize),1)||clr||YEL" "lang.92" "CYN||BLD||word(dltime(fsize),2)||clr||YEL" "lang.93;newline;do 3;print kl;end;print kl"A";continue;call clearsarea;if nodesc=0 then;do;print "H";do until eof(in);If ~carrier then signal boomtown;defter=0;do lcareful=1 to scrln-1;print kl;data=readln(in);if eof(in)=1 then leave;defter=2;print "A"CYN||YEL||left(data,78);end;print kl"A";if defter=2 then sheeko=MorePro();else;do;print red||bld"A"lang.219;continue;leave;end;call clearsarea;if sheeko=0 then leave;send clr"H";end;buggeroff=0;end;Call Close(in);send "H";call scroll;send BBLU||BLD||WHT;send ''row'H'left(ansify(raw),22);end;if markopt="Q" then;do;print ""scrln+7";0H"clr||kl;send clr"H";call restip;return;end;end;send clr"H";call scroll;signal mormark;rtxtphile:;print clr""scrln+7";0H"YEL||BLD||lang.220" -["CYN||WHT"M/Return"CYN||lang.162||WHT||lang.189||CYN", "WHT"Q/Esc"CYN||lang.162||WHT||lang.190||CYN", "WHT"8+2/Cursors"CYN||lang.162||WHT||lang.191||YEL"]-"clr;call tenf;if smeeegheed=1 then return;call louise_sleeper;do forever;if ~carrier then signal boomtown;raw=(start+row)-3;send BBLU||BLD||WHT;tip=upper(word(currfname.raw,1));if mark.tip.goarea="Y" then send BBLU||RED||BLD;send ''row'H'left(ansify(raw),22);bufferflush;gc;markopt=upper(result);if c2d(markopt)=13 then markopt="M";if markopt='1B'x then markopt="Q";If markopt='9b'x|markopt='5B'x then;Do;maygetchar;Tmp=result;If Tmp='A' then markopt='8';If Tmp='B' then markopt='2';If Tmp='C'&pageno<pages then;do;pageno=pageno+1;start=start+scrln;call scroll;signal rtxtphile;end;If Tmp='D' then if START>1 then;do;if start-scrln<1 then start=scrln+1;pageno=pageno-1;start=start-scrln;call scroll;signal rtxtphile;end;End;if markopt="2" then;do;replin=downer();if replin=1 then signal rtxtphile;end;shutupbeavis=0;if markopt="8" then call uppa;if markopt="M" then;do;typ="";nareapath=areapath||word(currfname.raw,1);donotdisturb=0;if left(currfname.raw,1)="\" then break;print "H";if ~exists(compress(nareapath)) then call alertit(clr||red||bld"File does not exist, file is Offline - Alert SysOp");if ~exists(compress(nareapath)) then break;send clr""scrln+7";0H"kl||WHT||lang.221;address command 'about "'compress(nareapath)'" >'tempath'gh'bbsline;sl "[FList] "lang.222" ["compress(nareapath)"]";call open(in,tempath'gh'bbsline,'r');dummy=readln(in);call clearsarea;do 9;print CYN||BLD||readln(in)||clr;end;typ=readln(in);send bld||cyn||left(typ,9)||clr;print bld||yel||right(typ,length(typ)-9)||clr;newline;continue;if pos('ASCII',upper(typ))=0 then;do;call alertit(BLD||RED||lang.223||clr);sl "[FList] "lang.224;Call Close(in);call scroll;return;end;Call Close(in);send clr;cls;sl "[FList] "lang.225;sendfile compress(nareapath);newline;continue;call redraw;send "H";call scroll;send BBLU||BLD||WHT;send ''row'H'left(ansify(raw),22);end;if markopt="Q" then;do;print ""scrln+7";0H"clr||kl;send clr"H";call restip;return;end;end;if typ~-"" then call redraw;send clr"H";call scroll;signal rtxtphile;syntax:;golf=sigl;code=rc;newline;print ""lang.226"";newline;print ""lang.227" "golf;print ""lang.228" "code;print ""lang.229" "errortext(code);newline;sl clr||bld"[FList] "lang.230" #"golf", "lang.231" "code", "lang.232" ["errortext(code)"] *** ";print " "lang.233" ";newline;send ""lang.234" ";call open(errout,'ram:error.txt','w');call writeln(errout,'FList - (c) S.Gillibrand 1997 - Digital Design Production'crvar||crvar'An error has occured internal to FList, this error was triggered while'crvar||username' was online. It is suggested you report this error to 'crvar'Stuart Gillibrand of Digital Design immediatley. The following methods of contact are available:'crvar||crvar' * EMail: [e-mail]'crvar' * WWW: http://www.digitald.demon.co.uk'crvar' * Fidonet: 2:250/602.0'crvar' * Snail: Digital Design WHQ,'crvar'          8, Thornton Drive,'crvar'          Farington Moss,'crvar'          Leyland,'crvar'          Preston,'crvar'          Lancashire,'crvar'          PR5 3QH.'crvar'          ENGLAND.'crvar||crvar'An immediate response will follow and any bugs/improvements fixed/made due');call writeln(errout,'to your information will result in a small dedication to yourself.'crvar||crvar'Please attatch the following information to your message:-'crvar||crvar' Line [#'golf']'crvar' Code ['code']'crvar' Error ['errortext(code)']'crvar' Version ['ver$']');call writeln(errout,' Date ['date()']'crvar' Time ['time()']'crvar||crvar' BBS Name: 'bbsname||crvar' SysOp: 'bbsysopname||crvar||crvar'---'crvar||crvar'Thank You In Advance.'crvar);call close(errout);call trapghost('"'tgmailpath'" "ram:error.txt" "'lang.235'" "'caseconvert(bbsysopname)'" "'lang.235' - 'lang.236'"');address command 'delete "ram:error.txt" >NIL:';print "Complete";newline;continue;signal boomtown;maffair:;cls;newline;print RED||BLD||lang.237||clr;return;redraw:;arg parad;call open(sneakyout,tempath'koochi'bbsline,'w');pages=bebob/scrln;borrow=pos('.',pages);if borrow>0 then pages=left(pages,borrow-1)+1;call writech(sneakyout,clr);if parad=1 then call writech(sneakyout,"H");else call writech(sneakyout,"H");call writeln(sneakyout,kl||kon||BLD||YEL||tbpliner||crvar||kon"A2H"BLD||YEL||lang.154||WHT||mkf||crvar||kl||kon||col_bar||bld||YEL"["WHT||left(lang.238,1)||ubld||substr(lang.238,2)||bld||YEL"] ["WHT||left(lang.239,1)||ubld||substr(lang.239,2)||bld||YEL"] ["WHT||left(lang.240,1)||ubld||substr(lang.240,2)||bld||YEL"] ["WHT||left(lang.241,1)||ubld||substr(lang.241,2)||bld||YEL")"WHT||left(lang.242,1)||ubld||substr(lang.242,2)||bld||YEL"]"kon||crvar||clr||WHT||BLD""scrln+3"H"kl||col_bar"F"ubld"List "bld||left(lang.243,1)||ubld||substr(lang.243,2)" "bld"("blk||lang.244" "showopts||wht")"clr||col_bar||BLK" þ "BLD||col_bar||red"["grn||right(pageno,length(pages),'0')||WHT"/"YEL||pages||red"]                                    "clr||crvar||kl||col_bar"A"76-length(areaname)-6"C"YEL||BLD||lang.245||ubld": "bld||WHT||areaname"  "clr||crvar);if parad=1 then;do;call writeln(sneakyout,kl);call writeln(sneakyout,kl"A");end;call close(sneakyout);sendfile tempath'koochi'bbsline;sendfile txtpath"FList_Menu"showopts;address command 'delete "'tempath'koochi'bbsline'" >NIL:';return;reloadfiles:;parse arg areatwf;if compress(areatwf)=""|upper(areatwf)="AREATWF" then areatwf=goarea;bebob=1;currfname.bebob="\                              "pnk||bld||word(lang.246,1)||ubld||substr(lang.246,length(word(lang.246,1))+1);call clearsarea;send FSH||BLD||RED""scrln+1"H þú "clr||BLD||YEL||lang.247||RED||FSH" úþ "clr||BLD||CYN": "clr;if areacomm="ON" then;do;gooe=farea;if gooe>areas then gooe="Ext";currfname.2="\";currfname.3="\ ú+úþú+úþú+-<*> "centre("#"gooe", "areaname,45)" <*>-+úþú+úþú+ú";currfname.4="\";bebob=4;end;soastick=bebob+1;Call Open(in,areatwf,'R');oldsize=seek(in,0,'E');donotcache=0;err=time('r');if oldsize=cache.farea.0&forceload~=1&flistcache="ON" then;do;donotcache=1;send FSH||BLD||RED""scrln+1"H þú "clr||BLD||YEL||lang.248||RED||FSH" úþ "clr||BLD||CYN": "clr;do cash=soastick to cache.farea.65535;currfname.cash=cache.farea.cash;end;bebob=cache.farea.65535;end;else;do;err=seek(in,0,'B');do until eof(in);bebob=bebob+1;currfname.bebob=readln(in);end;end;Call Close(in);print time('e')" seconds...";pages=bebob/scrln;borrow=pos('.',pages);if borrow>0 then pages=left(pages,borrow-1)+1;currfname.bebob="\                               "pnk||bld||word(lang.249,1)||ubld||substr(lang.249,length(word(lang.249,1))+1);address command 'Delete "'tempath'RESULTS'bbsline'" >NIL:';pageno=1;giddy=goarea;start=1;if ((donotcache=0|forceload=1)&flistcache="ON") then;do;send FSH||BLD||RED""scrln"H þú "clr||BLD||YEL||lang.250||RED||FSH" úþ "clr||BLD||CYN": "clr;err=time('r');do necro=soastick to bebob-1;cache.farea.necro=currfname.necro;end;cache.farea.0=oldsize;cache.farea.65535=bebob;print time('e')" "lang.93"...";end;forceload=0;return;sort:;comeback=customquest(lang.425);if upper(comeback)~="Y" then return;rev='';query clr||YEL||bld""scrln+7";0H"kl||lang.251" (A-Alpha, R-Reverse, F-Forward, D-Date, S-Size, C-Comment): "CYN;demp=result;if upper(demp)~="R" then result=customquest(lang.252);if upper(Result)="Y" then rev='r';if upper(demp)="R" then call sortreverse;if upper(demp)="A" then call sortalpha;if upper(demp)="F" then call sortnormal;if upper(demp)="D" then call sortdate;if upper(demp)="S" then call sortsize;if upper(demp)="C" then call sortcomment;if exists(tempath"files.bbs"bbsline) then;do;forceload=1;call reloadfiles(tempath"FILES.BBS"bbsline);call scroll;address command 'delete "'tempath'Files.BBS'bbsline'" >NIL:';end;send ""scrln+7";0H"kl;return;sortreverse:;sl "[FList] "lang.253;send clr""scrln+7";0H"kl""WHT||lang.254;address command "FileSort "goarea" "tempath"files.bbs"bbsline" R >NIL:";return;sortalpha:;sl "[FList] "lang.255;send clr""scrln+7";0H"kl||bld||WHT||lang.256;address command "FileSort "goarea" "tempath"files.bbs"bbsline" a "rev" >NIL:";return;sortdate:;sl "[FList] "lang.257;send clr""scrln+7";0H"kl||BLD||WHT||lang.258;address command "FileSort "goarea" "tempath"files.bbs"bbsline" d "rev" >NIL:";return;sortsize:;sl "[FList] "lang.259;send clr""scrln+7";0H"kl||WHT||BLD||lang.260;address command "FileSort "goarea" "tempath"files.bbs"bbsline" s "rev" >NIL:";return;sortcomment:;sl "[FList] "lang.261;send clr""scrln+7";0H"kl||bld||WHT||lang.262;address command "FileSort "goarea" "tempath"files.bbs"bbsline" c "rev" >NIL:";return;sortnormal:;sl "[FList] "lang.263;call reloadfiles;call scroll;return;extdir:;extdir=0;send clr""scrln+7";0H"kl;query YEL||lang.264" "CYN"\\"gopher;xdir=result;if upper(xdir)="RESULT" then;do;send clr""scrln+7";0H"kl;return;end;if ~exists(xdir) then;do;call alertit(clr||red||bld||lang.265);return;end;areaname=lang.266" "xdir;apat.areaname="ExDirServ:";farea=65535;goarea="ExDirServ:Files.BBS";sl "[FList] "lang.267" ["xdir"]";address command 'assign ExDirServ: "'xdir'"';call checkpath("file:FListExd");address command 'assign ExDirServ: file:FListExd add';if right(xdir,1)~=":"&right(xdir,1)~="/" then xdir=xdir'/';gopher=xdir;send clr""scrln+7";0H"kl||WHT||lang.268;if exists(xdir'Files.bbs') then;do;send clr""scrln+7";0H"kl;query bld||lang.269" "yel"y"blu"/"yel"N"wht"? "cyn;if upper(result)="Y" then;do;address command 'copy "'xdir'files.bbs" "file:FlistExd" noreq >NIL:';signal wishthing;end;end;send clr""scrln+7";0H"kl||grn||bld||lang.270||clr;address command 'List "'xdir'" Files Nohead >'tempath'Files.BBS'bbsline;address command 'List "'xdir'" Dirs Nohead >'tempath'FilesDIR.BBS'bbsline;send clr""scrln+7";0H"kl;Call Open(Out,'file:FListExd/Files.BBS','W');Call Writeln(out,'\');Call Writeln(out,'\ 'red||bld'External Directory Processed By FList - (c) S.Gillibrand 1997');Call Writeln(out,'\ 'red||bld||lang.271||xdir);Call Writeln(out,'\');xdir="ExDirServ:";address command 'Copy "'xdir'files.bbs" "'tempath'refudge'bbsline'" noreq >NIL:';Call Open(In,tempath'FilesDIR.BBS'bbsline,'R');breg=0;send clr""scrln+7";0H"kl||grn||bld||lang.272||clr;xdate="970413";do forever;if ~carrier then signal boomtown;do until length(strip(xdata,'T'))<61;xdata=readln(in);end;if left(xdata,1)=":" then;do;xcomm=left(right(xdata,length(xdata)-2),40);xdata=readln(in);end;else xcomm=left(lang.273,40);mon=substr(xdate,3,2);xdat=right(xdate,2)"-"geniushaha.mon"-"left(xdate,2);datout='\'clr||grn||bld||xfile||col_size' 'lang.274' 'col_date||xdat' 'col_desc||xcomm;if breg=1 then;do;Call Writeln(out,datout);end;if eof(in) then leave;breg=1;xfile=left(xdata,23);xdate.1=substr(xdata,43,9);xdate="970101";if datatype(left(xdate.1,2))="NUM" then;do;mon=upper(substr(xdate.1,4,3,));xdate=right(xdate.1,2)||geniusahah.mon||left(xdate.1,2);end;end;Call Close(in);Call Open(In,tempath'Files.BBS'bbsline,'R');breg=0;send clr""scrln+7";0H"kl||grn||bld||lang.275||clr;do forever;if ~carrier then signal boomtown;do until length(strip(xdata,'T'))<61;xdata=readln(in);end;if left(xdata,1)=":" then;do;xcomm=left(right(xdata,length(xdata)-2),40);xdata=readln(in);end;else xcomm=left(lang.276,40);datout=xfile||xsize' 'xdate' 'xcomm;if breg=1 then;do;Call Writeln(out,datout);end;if eof(in) then leave;breg=1;xfile=left(xdata,23);xdate.1=substr(xdata,43,9);xdate="970101";if datatype(left(xdate.1,2))="NUM" then;do;mon=upper(substr(xdate.1,4,3,));xdate=right(xdate.1,2)||geniusahah.mon||left(xdate.1,2);end;xsize=right(strip(substr(xdata,25,8)),8);if compress(upper(xsize))="EMPTY" then xsize=right('0',8);end;Call Close(in);Call Close(out);wishthing:;extdirpath=xdir;areapath=xdir;extdir=1;zeon=zeon+1;farea=zeon;npat.zeon=xdir;send clr""scrln+7";0H"kl;pageno=1;call reloadfiles("file:flistexd/files.bbs");call redraw(1);call scroll;return;palprefs:;col.1=substr(red,4,1);col.2=substr(grn,4,1);col.3=substr(yel,4,1);col.4=substr(blu,4,1);col.5=substr(pnk,4,1);col.6=substr(cyn,4,1);col.7=substr(wht,4,1);call clearsarea;send "H";sendfile txtpath"FList_Colour.ANSI";do i=1 to 7;send ""5+(2*i)";"35+(5*col.i)"H"col.i"mþþþþ"clr;end;send "3H"RED||BLD"->";ccol=1;do until cpref="V"|cpref="Q";If ~carrier then signal boomtown;bufferflush;gc;cpref=upper(result);if cpref='1B'x then markopt="V";If cpref='9b'x|cpref='5B'x then;Do;maygetchar;Tmp=result;If Tmp='A' then cpref='A';If Tmp='B' then cpref='Z';If Tmp='C' then cpref='=';If Tmp='D' then cpref='-';End;if cpref="8" then cpref="A";if cpref="2" then cpref="Z";if cpref="4"|cpref="O" then cpref="-";if cpref="6"|cpref="P" then cpref="=";if cpref="R" then;do;col.1=1;col.2=2;col.3=3;col.4=4;col.5=5;col.6=6;col.7=7;call clearsarea;send "H";sendfile txtpath"FList_Colour.ANSI";do i=1 to 7;send ""5+(2*i)";"35+(5*col.i)"H"col.i"mþþþþ"clr;end;send "3H"RED||BLD"->";ccol=1;end;if cpref="="&col.ccol<7 then;do;col.ccol=col.ccol+1;send clr""5+(2*ccol)";"35+(5*col.ccol)-5"H"col.ccol"m    "clr;send ""5+(2*ccol)";"35+(5*col.ccol)"H"col.ccol"mþþþþ"clr;end;if cpref="-"&col.ccol>1 then;do;col.ccol=col.ccol-1;send clr""5+(2*ccol)";"35+(5*col.ccol)+5"H"col.ccol"m    "clr;send ""5+(2*ccol)";"35+(5*col.ccol)"H"col.ccol"mþþþþ"clr;end;if cpref="Z" then;do;send ""5+(2*ccol)";33H"ccol"m"BLD"  ";ccol=ccol+1;if ccol=8 then ccol=1;send ""5+(2*ccol)";33H"ccol"m"BLD"->"clr;end;if cpref="A" then;do;send ""5+(2*ccol)";33H"ccol"m"BLD"  ";ccol=ccol-1;if ccol=0 then ccol=7;send ""5+(2*ccol)";33H"ccol"m"BLD"->"clr;end;end;if cpref~="Q" then;do;red=""col.1"m";grn=""col.2"m";yel=""col.3"m";blu=""col.4"m";pnk=""col.5"m";cyn=""col.6"m";wht=""col.7"m";call checkpath(pltpath);Call Open(Out,pltpath||username'.PLT','W');Call Writeln(out,""col.1"m");Call Writeln(out,""col.2"m");Call Writeln(out,""col.3"m");Call Writeln(out,""col.4"m");Call Writeln(out,""col.5"m");Call Writeln(out,""col.6"m");Call Writeln(out,""col.7"m");Call Close(Out);end;call redraw(1);call reloadfiles;return;passwrd:;newline;print clr":: ["bld"FList "lang.277||ubld"] ::";newline;if upper(psw)~="­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­" then;do;prompt 30 'HIDE "'clr||red||bld||lang.278||yel': 'bblu||cyn'                              D"';if upper(result)~=upper(psw) then;do;sl "[FList] "lang.279;newline;newline;print clr||bld||RED||lang.280;newline;continue;call redraw;call scroll;return;end;newline;newline;end;prompt 30 'HIDE "'clr||red||bld||lang.281||yel': 'bblu||cyn'                              D"';npass=upper(Result);newline;prompt 30 'HIDE "'clr||red||bld||lang.282||yel': 'bblu||cyn'                              D"';scnd=result;send clr;if upper(scnd)~=npass&upper(scnd)~="RESULT" then;do;newline;newline;sl "[FList] "lang.283;print clr||bld||RED||lang.284;newline;continue;call redraw;call scroll;return;end;sl "[FList] "lang.285" ["npass"]";call checkpath(pswpath);if upper(scnd)="RESULT" then;do;address command 'DELETE "'pswpath||username'.PSW" >NIL:';newline;newline;print clr||bld||GRN||lang.286;psw="­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­";newline;continue;call redraw;call scroll;return;end;Call Open(Out,pswpath||username'.PSW','W');Call Close(out);address command 'FileNote "'pswpath||username'.PSW" "'npass'" >NIL:';newline;newline;psw=npass;print clr||bld||grn||lang.287;newline;continue;call redraw;call scroll;return;remark:;oldms=markstring;oldmf=mkf;retr:;newline;print clr||CYN"þ"bld" "lang.288||clr;call checkpath(sdlpath);if ~exists(sdlpath||username'.SDL') then;do;newline;print RED||lang.289;newline;continue;return;end;Call Open(LMIn,sdlpath||username'.SDL','R');markstring=' ';mkf=1;send BLD;Do Until Eof(LMIn);If ~carrier then signal boomtown;extpath=readln(lmin);fjr=word(extpath,2);areaofile.fjr=word(extpath,1);descofile.fjr=translate(word(extpath,3),' ','­');goar.fjr=word(extpath,5);if fjr~=""&datatype(areaofile.fjr)="NUM"&pos('­',extpath)>0 then;do;markstring=markstring||FJR' ';mkf=mkf+1;end;end;mkf=mkf-1;Call Close(lmin);resel:;cls;print kl||kon||tbpliner;newline;call open(pagebreak,tempath'Page_Prompt'bbsline,'w');call writech(pagebreak,clr);do i=1 to words(markstring);if ~carrier then signal boomtown;filenamenzie=upper(word(markstring,i));discojak=descofile.filenamenzie;call writeln(pagebreak,YEL||right(i,3,'0')||CYN" "left(filenamenzie,23)" "translate(translate(discojak,' ','­'),d2c(10),'º'));end;call close(pagebreak);sendfile tempath"Page_Prompt"bbsline;address command 'delete "'tempath'Page_Prompt'bbsline'" >NIL:';newline;do until smfopt="R";if ~carrier then exit;prompt 1 'NORMAL "'bld||RED'R'YEL']'CYN||lang.290', 'RED'D'YEL']'CYN||lang.291', 'RED'Q'YEL']'CYN||lang.292', 'RED'C'YEL']'CYN||lang.293', 'RED'S'YEL']'CYN||lang.294', 'RED'V'YEL']'CYN||lang.295' 'WHT'> "';smfopt=upper(Result);select;when smfopt="Q" then;do;markstring=oldms;mkf=oldmf;return;end;when smfopt="C" then;do;newline;prompt 20 'NORMAL "'YEL||lang.296' 'CYN'"';ftc=upper(Result);if left(ftc,1)="/" then;do;parse var ftc "/"strt"-"fnto;if datatype(strt)~="NUM"|datatype(fnto)~="NUM"|strt<1|fnto>words(markstring) then;do;newline;newline;print red||bld||lang.297||clr;newline;continue;signal resel;end;nms=markstring;do ftc=strt to fnto;if ~carrier then signal boomtown;ftd=word(markstring,ftc);mn8=pos(ftd,upper(nms));nms=delstr(nms,mn8,length(ftd));end;markstring=nms;newline;signal resel;end;if pos(ftc,upper(markstring))=0&datatype(ftc)~="NUM" then;do;newline;print RED||lang.298;address command "Wait "defwait" >NIL:";newline;send clr;newline;newline;signal resel;end;if datatype(ftc)="NUM" then if ftc<=words(markstring) then ftc=word(markstring,ftc);else signal resel;mn8=pos(ftc,upper(markstring));markstring=delstr(markstring,mn8,length(ftc));newline;newline;signal resel;end;when smfopt="D" then;do;newline;newline;queryn YEL||lang.299;if upper(Result)~="Y" then signal resel;call checkpath(sdlpath);address command 'Delete "'sdlpath||username'.SDL" >NIL:';newline;print RED||lang.300;address command "wait "defwait" >NIL:";sl "[FList] "lang.301;markstring=oldms;mkf=oldmf;return;end;when compress(markstring)="" then;do;newline;markstring=oldms;mkf=oldmf;print RED||lang.302;newline;continue;return;end;when smfopt="S" then;do;call checkpath(sdlpath);if ~exists(sdlpath||username'.sdl') then call open(netset,sdlpath||username'.sdl','w');else;do;newline;newline;queryn lang.303;if upper(result)="Y" then call open(netset,sdlpath||username'.sdl','a');else call open(netset,sdlpath||username'.sdl','w');end;newline;newline;print grn||bld||lang.304;do tdial=1 to words(markstring);flnm=word(markstring,tdial);call writeln(netset,areaofile.flnm' 'flnm' 'translate(translate(descofile.flnm,'­',' '),'º',d2c(10))' 'goar.flnm);end;call close(netset);print lang.305;newline;continue;end;when smfopt="V" then signal resel;otherwise nop;end;newline;end;newline;signal markemate;dltime:;parse arg fsize;if datatype(fsize)="NUM" then fsizeconv=fsize/1000;else;do;newline;newline;print RED||lang.306;newline;fsize=0;end;poddy=pos('.',fsize/1000);fsizeconv=fsize;lpart=00;if poddy>0 then fsizeconv=left(fsize/1000,poddy-1);ttd=(fsize/(bpsrate/8))/60;seconds='00';lpart=ttd;pod=pos('.',ttd);if pod>0 then;do;rpart='0.'right(ttd,length(ttd)-pod);lpart=left(ttd,pod-1);if rpart<0.0166666 then seconds='01';else seconds=left((rpart/0.0166666),2);if right(Seconds,1)="." then seconds='0'left(seconds,1);if seconds>60 then;do;lpart=lpart+1;seconds=seconds-60;end;end;if length(lpart)=1 then lpart='0'lpart;return(lpart" "seconds);morepro:;if buggeroff="BUGGEROFF" then buggeroff=0;if buggeroff=1 then return(4);send CYN||BLD||lang.307||GRN'? 'YEL'Y'BLU'/'YEL'n'BLU'/'YEL'c';bufferflush;gc;ming=upper(Result);select;when ming="N" then return(0);when ming="Y" then return(1);when ming="C" then;do;buggeroff=1;return(2);end;otherwise return(1);end;return(3);downer:;tip=upper(word(currfname.raw,1));if mark.tip.goarea="Y" then send clr||RED||BLD;else send clr||col_file;if tailmark~=1 then send ''row'H'left(ansify(raw),93);if row>(scrln+1) then return(1);oldrow=row;row=row+1;raw=(start+row)-3;if left(Currfname.raw,1)="\" then;do;do until left(currfname.raw,1)~="\"|row=2;if ~carrier then exit;raw=(start+row)-3;row=row+1;end;row=row-1;if row>scrln+2 then;do;if tailmark=1 then row=oldrow;return(1);end;end;return(0);uppa:;if row<4 then;do;tip=upper(word(currfname.raw,1));if mark.tip.goarea="Y" then send clr||RED||BLD;else send clr||col_file;send ''row'H'left(ansify(raw),93);shutupbeavis=1;row=scrln+2;raw=(start+row)-3;if left(Currfname.raw,1)="\" then;do;do until left(currfname.raw,1)~="\"|row=3;if ~carrier then signal boomtown;raw=(start+row)-3;row=row-1;end;row=row+1;end;row=row+1;end;if shutupbeavis=0 then;do;tip=upper(word(currfname.raw,1));if mark.tip.goarea="Y" then send clr||RED||BLD;else send clr||col_file;send ''row'H'left(ansify(raw),93);end;oldrow=row;row=row-1;raw=(start+row)-3;if left(currfname.raw,1)="\" then;do;do until left(currfname.raw,1)~="\"|row=1;if ~carrier then signal boomtown;raw=(start+row)-3;row=row-1;end;if row<2&tailmark=0 then;do;row=scrln+2;raw=(start+row)-3;if left(Currfname.raw,1)="\" then;do;do until left(currfname.raw,1)~="\"|row=1;if ~carrier then exit;raw=(start+row)-3;row=row-1;end;row=row+1;end;end;else row=row+1;end;return;qt:;Hr.0=lang.308' ';Hr.1=lang.309' ';Hr.2=lang.310' ';Hr.3=lang.311' ';Hr.4=lang.312' ';Hr.5=lang.313' ';Hr.6=lang.314' ';Hr.7=lang.315' ';Hr.8=lang.316' ';Hr.9=lang.317' ';Hr.10=lang.318' ';Hr.11=lang.319' ';Mn.0='';Mn.1=lang.320' ';Mn.2=lang.321' ';Mn.3=lang.322' ';Mn.4=lang.323' ';Mn.5=lang.324' ';Mn.6=lang.325' ';Ny.0=lang.326' ';Ny.1=lang.327' ';Ny.2='';Ny.3=lang.328' ';Ny.4=lang.329' ';Up.0=lang.330' ';Up.1='';Up.2=lang.331' ';t=(TIME('S')+1650)%60;Hrs=(t%60)//12;Min=t//60;Alm=Min//5;Div=(Min%5)-5;Upt=SIGN(Div)+1;IF Div<0 THEN Div=-Div;OClock=lang.332" "||Ny.Alm||Mn.Div||Up.Upt||Hr.Hrs;IF Div==0 THEN OClock=OClock||lang.333;return(right(OClock,40));defcfg:;tailmark=0;lameacc=200;sysopmovetaxx=200;sysopdeltaxx=255;sysopcopytaxx=255;sysopterntaxx=255;sysopicetaxx=255;sysopnketaxx=255;sysoptchtaxx=255;sysopimptaxx=255;pltpath="BBS:Extras/FlistPalette/";sdlpath="BBS:Extras/FlistSaveDL/";pswpath="BBS:Extras/FlistPasswords/";fpmpath="FILE:Fpm/";tempath="T:FList/";cfgpath="BBS:Configs/";txtpath="BBS:Text/";binpath="BBS:Bin/";usrpath="BBS:Users/";taversion="1.2g6";defwait=1;col_file=wht;col_size=yel;col_date=blu;col_desc=cyn;col_bar=bblu;maxclock="ON";scrlmethod=1;precommexe="Run <NIL: ";plugik="ON";userhelp="ON";helphim=5;areacomm="ON";gopher="";enlargemark="OFF";flistcache="ON";fpmopt="OFF";assignoutput="[Mounted]";mname.1="JAN";mname.2="FEB";mname.3="MAR";mname.4="APR";mname.5="MAY";mname.6="JUN";mname.7="JUL";mname.8="AUG";mname.9="SEP";mname.10="OCT";mname.11="NOV";mname.12="DEC";return;ansify:;arg gangsta;if words(left(currfname.gangsta,23))>1 then if left(currfname.gangsta,1)~="\" then return('n/a                   'col_size'   0k 'col_date'!!-!!!-!! 'col_desc'[FList] Illegal, Filename contains space');if words(currfname.gangsta)<3 then return('n/a                   'col_size'   0k 'col_date'!!-!!!-!! 'col_desc'[FList] Illegal, FILES.BBS entry invalid');dyf=substr(currfname.gangsta,33,6);mon=substr(dyf,3,2);return(translate(left(currfname.gangsta,21)" "col_size||right(substr(currfname.gangsta,25,7)%1024+1"k",5)" "col_date||right(dyf,2)' 'geniushaha.mon' 'left(dyf,2)' 'col_desc||substr(currfname.gangsta,40,40),' ',d2c(9)));tenf:;smeeegheed=1;do bigtenfour=start to start+(scrln-1);if ~carrier then exit;if left(Currfname.bigtenfour,1)~="\"&bigtenfour~=bebob&bigtenfour~=1 then smeeegheed=0;end;if smeeegheed=1 then print ""scrln+7";0H"clr||kl;return;restip:;send clr""row"H"||col_file;tip=upper(word(currfname.raw,1));if mark.tip.goarea="Y" then send RED||BLD;print left(ansify(raw),93);if checkoffline=1&~exists(areapath||word(currfname.i,1)) then print "AC"RED||BLD||FSH||lang.334||clr;return;alertit:;parse arg ctu;send d2c(7)||clr;send ""scrln+7";0H"kl||ctu||GRN" - "clr;send bld||yel||lang.335||grn||lang.336||yel||lang.337;getchar;send clr""scrln+7";0H"kl;return;clearsarea:;arg amou;call open(sneakyout,tempath'goochi'bbsline,'w');call writech(sneakyout,"H"clr);glip=scrln;if datatype(amou)="NUM" then glip=amou;do glip;call writeln(sneakyout,kl);end;call writech(sneakyout,"H");call close(sneakyout);sendfile tempath"goochi"bbsline;address command 'delete "'tempath'goochi'bbsline'" >NIL:';return;lloose:;parse arg werm;send ""scrln+4"H"kl||BLD||YEL||lang.338" "d2c(7);print fsh||bld||blu'['yel||'HELP'blu'] 'clr||grn||bld||left(werm,63);send ""scrln+4"H"BLD||YEL||lang.338" ";address command "wait 1 >NIL:";return;boomtown:;address command 'Run >NIL: Delete "'tempath'~(#?MARKED#?)" FORCE >NIL:';sl clr||bld"[FList] "ver$" "lang.339||clr;exit;break_C:;break_D:;break_E:;break_F:;return;CaseConvert:;arg conv_str;conv_str=translate(CONV_STR,Xrange('a','z'),Xrange('A','Z'));tmp='';do a=1 to words(CONV_STR);if ~carrier then signal boomtown;tmp=tmp||upper(left(word(CONV_STR,A),1))substr(word(CONV_STR,A),2)' ';end;CONV_STR=left(tmp,length(tmp)-1);return(CONV_STR);checkpath:;parse arg sock;if right(sock,1)="/" then sock=left(sock,length(sock)-1);if ~exists(sock) then;do;sl "[FList] "sock" "lang.340;address command 'makedir "'sock'" >NIL:';if ~exists(sock) then;do;newline;print red||bld||lang.341||ubld;newline;sl "[FList] "sock" "lang.342;continue;signal boomtown;end;end;return;spinwrite:;send clr""scrln+7";0H"kl||pnk||bld||lang.343||ubld;call open(icelemonteaout,goarea,'w');moodle=2;if areacomm="ON" then moodle=5;do yamma=moodle to bebob-1;call writeln(icelemonteaout,currfname.yamma);if pos('.',yamma/5)=0 then;do;perc=((yamma*100)/(bebob-1));dol=pos('.',perc);if dol>0 then;do;byb=substr(perc,dol+1,1);perc=left(perc,dol-1);if byb>=5 then perc=perc+1;end;send "["right(perc,3,'0')"%]D";end;end;send ""scrln+7";0H"kl;call close(icelemonteaout);Call Open(in,goarea,'R');oldsize=seek(in,0,'E');call close(in);return;trapghost:;parse arg '"'msgareapath'" "'filename'" "'fromname'" "'toname'" "'subject'"';if right(msgareapath,1)~="/" then msgareapath=msgareapath'/';address command 'list 'msgareapath'#?.msg files quick nohead >t:TrapGhost.temp';call open(in,"t:trapghost.temp",r);currenthigh=0;do while ~eof(in);data=readln(in);parse var data num'.';if num>currenthigh then currenthigh=num;end;call close(in);currenthigh=currenthigh+1;fromname=fromname''copies(d2c(00),36-length(fromname));toname=toname''copies(d2c(00),36-length(toname));subject=subject''copies(d2c(00),72-length(subject));d1=date();d2=word(d1,1)' 'word(d1,2)' ';d3=right(word(d1,3),2);date=d2||d3'  'time()||d2c(00);data=copies(d2c(00),23)||d2c(01)||copies(d2c(00),2);VIA=d2c(01)" * Via FList "ver$" "lang.344" - (c) S.Gillibrand 1997 *"d2c(10)||d2c(13)||d2c(00);open(ou,msgareapath''currenthigh'.msg',w);call writech(ou,fromname''toname''subject''date''data);open(in,filename,r);do while ~eof(in);line=readln(in);call writech(ou,line''d2c(13));end;call writech(ou,via);call close(ou);call close(in);address command 'trump 'msgareapath' >NIL:';call open(in,cfgpath'Message.Cfg','r');dummy=readln(in);do (dummy*6)+11;dum=readln(in);end;msgareas=readln(in);do zelk=1 to msgareas;dummy=readln(in);if upper(readln(in))=upper(tgmailpath) then leave;do 10;dummy=readln(in);end;end;call close(in);return;areachange:;if ~carrier then signal boomtown;sl "[FList] Changing File Area";if ceedee_now=1 then signal cdareahandler;if extdev_now=1 then signal edevareahandler;pageno=1;send ""scrln+7";0H";Prompt 4 'NORMAL "'clr||BLD||RED||lang.345' 'YEL'['GRN'X/Q'lang.162||lang.190', ? 'lang.346', > 'lang.347', < 'lang.348||YEL']'GRN': 'WHT'"';fa=upper(result);if fa="?" then;do;do until fa~="?";send clr;cls;if exists("BBS:Rexx/FList_Area.Trans") then;do;call 'BBS:Rexx/FList_Area.Trans';si '2';fa=result;end;else;do;if exists(txtpath"FileLibs."right(useraccess,3,'0'))|exists(txtpath"FileLibs."right(useraccess,3,'0')".ANSI") then sendfile txtpath"FileLibs."right(useraccess,3,'0');else if exists(txtpath"FileLibs."useraccess)|exists(txtpath"FileLibs."useraccess".ANSI") then sendfile txtpath"FileLibs."useraccess;else if exists(txtpath"FileLibs.ANSI")|exists(txtpath"FileLibs") then sendfile txtpath"FileLibs";else listfileareas;newline;Prompt 4 'NORMAL "'clr||BLD||RED||lang.345' 'YEL'['GRN'X/Q'lang.162||lang.190', ? 'lang.346', > 'lang.347', < 'lang.348||YEL']'GRN': 'WHT'"';fa=upper(result);end;end;call redraw;end;si '2';fanumb=result;if fa=">" then fa=fanumb+1;if fa="<"&fanumb>1 then fa=fanumb-1;if fa="X"|fa="Q" then signal markemate;if datatype(fa)~="NUM" then;do;call alertit(lang.349);fa=fanumb;end;if fa>areas|fa<1 then;do;call alertit(lang.350);fa=fanumb;end;send ""scrln+7";0H";return(fa);setarea:;arg an;si '2';moocow=result;if extdir=1 then moocow="666";extdir=0;detonator:;filearea an;if result~=1 then;do;call maffair;an=areachange();signal detonator;end;systeminfo 'z';areaname=result;areapath=apat.areaname;sl "[FList] "lang.245": "an", "lang.351": "areaname;if pos('#'areapath'#',restrictACCESS.useraccess)>0|pos('#'areapath'#',restrictFLAGS.userflags)>0|pos('#'areapath'#',restrictACAGS.userflags.useraccess)>0 then;do;call maffair;an=areachange();signal detonator;end;goarea=areapath'files.bbs';if ~exists(goarea) then;do;cls;newline;print RED||BLD||lang.352;newline;an=areachange();signal detonator;end;send ""scrln+7";0H"kl;if moocow~=an then call redraw(1);call pragma('Directory',areapath);return(an);cdromhandler:;sl "[FList] "lang.353;ceedee_now=1;nast=0;send clr;cls;print kon||tbpliner;if ~open(in,cfgpath'FList.CDROM','r') then;do;newline;print clr||red||fsh||bld||lang.354;sl "[FList] "lang.355;newline;continue;signal markemate;end;print clr||bblu||bld||cyn||left("FList CDRom SubSystem",78)||clr;newline;print grn||bld||lang.356;cds=0;do 12;cac=readln(in);end;do until eof(in);cds=cds+1;cdesc.cds=readln(in);cpath.cds=readln(in);cacfg.cds=readln(in);cansi.cds=readln(in);caxxs.cds=readln(in);cflag.cds=readln(in);end;call close(in);cds=cds-1;send "A";do i=1 to cds;address command 'assign "'cpath.i'" exists >'tempath'FListCd.Tmp'bbsline;call open(in,tempath'FListCd.Tmp'bbsline,'r');shite=readln(in);call close(in);if pos(assignoutput,shite)=0 then status.i=lang.357;else status.i=lang.358;nast=0;do z=1 to 8;if substr(cflag.i,z,1)="X"&substr(userflags,z,1)~="X" then nast=1;end;if useraccess>=caxxs.i&nast=0 then print bld||yel"["right(i,3,'0')"] "red||left(cdesc.i,64)" "pnk||status.i||clr;else print bld||yel"["right(i,3,'0')"] "ubld||red||left(lang.31,64)" "bld||pnk||status.i||clr;end;do 2;newline;end;do until datatype(cdselect)="NUM"&cdselect>0&cdselect<=cds;if ~carrier then signal boomtown;prompt length(cds) 'NORMAL "'bblu'A'left(' ',78)'D'yel||bld||lang.359' 'pnk'['grn'Q'lang.162||lang.190', ?'lang.162||lang.360||pnk']'yel': 'wht'"';cdselect=upper(result);send clr;newline;if cdselect="?" then signal cdromhandler;if cdselect="Q" then;do;ceedee_now=0;return;end;end;sl "[FList] "lang.361||cdselect" - {"cdesc.cdselect"}";nast=0;do z=1 to 8;if substr(cflag.cdselect,z,1)="X"&substr(userflags,z,1)~="X" then nast=1;end;if useraccess<caxxs.cdselect|nast=1 then;do;newline;print clr||red||lang.362||clr;sl" [FList] "lang.363;newline;continue;signal cdromhandler;end;if status.cdselect~=lang.358 then;do;newline;print clr||red||bld||lang.364;sl "[FList] "lang.365;newline;continue;signal cdromhandler;end;if ~open(in,cacfg.cdselect,'r') then;do;newline;print red||lang.366' - Please Inform The SysOp :('clr;sl "[FList] "lang.366;newline;continue;signal cdromhandler;end;do 12;cac=readln(in);end;cdareas=readln(in);send clr;cls;newline;print grn||bld||lang.356;newline;call open(Out,tempath'jinx'bbsline,'w');call writeln(out,'H');call writeln(out,kl||kon||tbpliner);call writeln(out,'');call writeln(Out,clr||bblu||bld||cyn||left("FList CDRom SubSystem - "cdesc.cds,78)||clr);call writeln(out,'');do i=1 to cdareas;cdareaname.i=readln(in);cdarealist.i=readln(in);cdareapath.i=readln(in);cdaccess.i=readln(in);cdflags.i=readln(in);nast=0;do z=1 to 8;if substr(cdflags.i,z,1)="X"&substr(userflags,z,1)~="X" then nast=1;end;if compress(cansi.cdselect)="" then;do;if useraccess>=cdaccess.i&nast=0 then call writech(out,bld||yel||right(i,3,'0')" "red||left(cdareaname.i,35));else call writech(out,bld||yel||right(i,3,'0')" "ubld||red||left(lang.31,35));end;i=i+1;if i>cdareas then leave;cdareaname.i=readln(in);cdarealist.i=readln(in);cdareapath.i=readln(in);cdaccess.i=readln(in);cdflags.i=readln(in);nat=0;do z=1 to 8;if substr(cdflags.i,z,1)="X"&substr(userflags,z,1)~="X" then nast=1;end;if compress(cansi.cdselect)="" then;do;if useraccess>=cdaccess.i&nast=0 then call writeln(out," "bld||yel||right(i,3,'0')" "red||left(cdareaname.i,34));else call writeln(out," "bld||yel||right(i,3,'0')" "ubld||red||left(lang.31,34));end;end;call writeln(out,'');call close(in);call close(out);if compress(cansi.cdselect)~="" then address command 'copy "'cansi.cdselect'" "'tempath'jinx'bbsline'" noreq >NIL:';cdareahandler:;do until datatype(areaselect)="NUM"&areaselect>0&areaselect<=cdareas;if ~carrier then signal boomtown;sendfile tempath'jinx'bbsline;newline;newline;prompt length(cdareas) 'NORMAL "'bblu'A'left(' ',78)'D'bld||grn||left(cdesc.cds,50)||yel||lang.367' 'pnk'['grn'Q'lang.162||lang.190||pnk']'yel': 'wht'"';areaselect=upper(result);send clr;newline;if areaselect="Q" then signal cdromhandler;end;sl "[FList] "lang.368||areaselect" - {"cdareaname.areaselect"}";nast=0;do z=1 to 8;if substr(cdflags.areaselect,z,1)="X"&substr(userflags,z,1)~="X" then nast=1;end;if useraccess<cdaccess.areaselect|nast=1 then;do;newline;print clr||red||lang.369||clr;sl" [FList] "lang.370;newline;continue;signal cdareahandler;end;if ~exists(cdarealist.areaselect) then;do;newline;print clr||red||lang.371||clr;sl" [FList] "lang.372;newline;continue;signal cdareahandler;end;extdir=1;goarea=cdarealist.areaselect;areapath=cdareapath.areaselect;zeon=zeon+1;farea=zeon;npat.zeon=areapath;areaname="[CD] "cdareaname.areaselect;call redraw;call pragma('Directory',cpath.cdselect);pageno=1;signal fscroller;exit;louise_sleeper:;row=3;raw=(start+row)-3;if left(Currfname.raw,1)="\" then;do;do until left(currfname.raw,1)~="\";if ~carrier then signal boomtown;raw=(start+row)-3;row=row+1;if row<3 then leave;end;row=row-1;if row<3 then row=oldrow;end;return;submark:;arg raw;nareapath=areapath;if pos(word(currfname.raw,1),markstring)>0 then;do;markstring=delstr(markstring,pos(word(currfname.raw,1),markstring),length(word(currfname.raw,1)));mkf=mkf-1;tip=upper(word(currfname.raw,1));mark.tip.goarea="N";send BBLU||BLD||WHT""row"H"left(ansify(raw),93);unmarkfile word(currfname.raw,1);defmodule="ON!";sl "[FList] "lang.373" ["word(currfname.raw,1)"]";end;if pos(word(currfname.raw,1),markstring)=0&defmodule~="ON!" then;do;sl "[FList] "lang.374" ["word(currfname.raw,1)"]";ftmark=word(currfname.raw,1);if extdir>0 then;do;if ~exists("file:flist/"ftmark) then;do;print clr||bld||yel||bblu||left(lang.375,57);address command 'Copy "'npat.zeon||ftmark'" file:flist noreq >NIL:';end;end;if mkf>=maxmark then;do;call alertit(clr||RED||BLD||lang.376);sl "[FList] "lang.377;return;end;if mkf>=bian then;do;call alertit(clr||RED||BLD||lang.378);sl "[FList] "lang.379;return;end;markstring=markstring||ftmark' ';golfball=upper(ftmark);if extdir>0 then jam.buttie.golfball="Don't Even Ask :-)";mkf=mkf+1;milestone=golfball;if length(currfname.raw)>80 then;do;zeon=zeon+1;areaofile.milestone=zeon;npat.zeon=substr(currfname.raw,80);if ~exists("file:flist/"ftmark) then;do;print clr||bld||yel||bblu||left(lang.375,57);address command 'Copy "'npat.zeon||ftmark'" file:flist noreq >NIL:';end;end;else areaofile.milestone=farea;goar.milestone=goarea;descofile.milestone=substr(currfname.raw,40,40);cap=raw+1;data="\";if strip(upper(descofile.milestone),'T')="FILE_ID.DIZ DESCRIPTION" then;do;do until left(data,1)~="\";data=currfname.cap;if left(data,1)="\" then descofile.milestone=descofile.milestone'º                      'substr(currfname.cap,35,45);if cap=bebob then data="";cap=cap+1;end;end;mark.golfball.goarea="Y";sl "[FList] "lang.380" ["ftmark"]";send BBLU||BLD||RED''row'H'left(ansify(raw),93);end;defmodule="OFF NOW SAID SHITSU!";send clr"A2H"GRN||lang.154||WHT||mkf" ";return;edevhandler:;sl "[FList] "lang.381;extdev_now=1;nast=0;send clr;cls;print kon||tbpliner;if ~open(in,cfgpath'FList.ED','r') then;do;newline;print clr||red||fsh||bld||lang.382;sl "[FList] "lang.383;newline;continue;signal markemate;end;print clr||bblu||bld||cyn||left("FList ExtDev SubSystem",78)||clr;newline;print grn||bld||lang.356;eds=0;do 12;cac=readln(in);end;do until eof(in);eds=eds+1;edesc.eds=readln(in);epath.eds=readln(in);eacfg.eds=readln(in);eansi.eds=readln(in);eaxxs.eds=readln(in);eflag.eds=readln(in);end;call close(in);eds=eds-1;send "A";do i=1 to eds;address command 'assign "'epath.i'" exists >'tempath'FListEd.Tmp'bbsline;call open(in,tempath'FListEd.Tmp'bbsline,'r');shite=readln(in);call close(in);if pos(assignoutput,shite)=0 then status.i="Offline";else status.i="Online";nast=0;do z=1 to 8;if substr(eflag.i,z,1)="X"&substr(userflags,z,1)~="X" then nast=1;end;if useraccess>=eaxxs.i&nast=0 then print bld||yel"["right(i,3,'0')"] "red||left(edesc.i,64)" "pnk||status.i||clr;else print bld||yel"["right(i,3,'0')"] "ubld||red||left(lang.31,64)" "bld||pnk||status.i||clr;end;do 2;newline;end;do until datatype(edselect)="NUM"&edselect>0&edselect<=eds;if ~carrier then signal boomtown;prompt length(eds) 'NORMAL "'bblu'A'left(' ',78)'D'yel||bld||lang.384' 'pnk'['grn'Q'lang.162||lang.190', ?'lang.162||lang.360||pnk']'yel': 'wht'"';edselect=upper(result);send clr;newline;if edselect="?" then signal edevhandler;if edselect="Q" then;do;extdev_now=0;return;end;end;sl "[FList] "lang.385||edselect" - {"edesc.edselect"}";nast=0;do z=1 to 8;if substr(eflag.edselect,z,1)="X"&substr(userflags,z,1)~="X" then nast=1;end;if useraccess<eaxxs.edselect|nast=1 then;do;newline;print clr||red||lang.386||clr;sl" [FList] "lang.387;newline;continue;signal edevhandler;end;if status.edselect~="Online" then;do;newline;print clr||red||bld||lang.388;sl "[FList] "lang.389;newline;continue;signal edevhandler;end;if ~open(in,eacfg.edselect,'r') then;do;newline;print red||lang.390||clr;sl "[FList] "lang.391;newline;continue;signal edevhandler;end;do 12;cac=readln(in);end;edareas=readln(in);send clr;cls;newline;print grn||bld||lang.356;newline;call open(Out,tempath'jinx'bbsline,'w');call writeln(out,'H');call writeln(out,kl||kon||tbpliner);call writeln(out,'');call writeln(Out,clr||bblu||bld||cyn||left("FList EDev SubSystem - "edesc.eds,78)||clr);call writeln(out,'');do i=1 to edareas;edareaname.i=readln(in);edarealist.i=readln(in);edareapath.i=readln(in);edaccess.i=readln(in);edflags.i=readln(in);nast=0;do z=1 to 8;if substr(edflags.i,z,1)="X"&substr(userflags,z,1)~="X" then nast=1;end;if compress(eansi.edselect)="" then;do;if useraccess>=edaccess.i&nast=0 then call writech(out,bld||yel||right(i,3,'0')" "red||left(edareaname.i,35));else call writech(out,bld||yel||right(i,3,'0')" "ubld||red||left(lang.31,35));end;i=i+1;if i>edareas then leave;edareaname.i=readln(in);edarealist.i=readln(in);edareapath.i=readln(in);edaccess.i=readln(in);edflags.i=readln(in);nat=0;do z=1 to 8;if substr(edflags.i,z,1)="X"&substr(userflags,z,1)~="X" then nast=1;end;if compress(eansi.edselect)="" then;do;if useraccess>=edaccess.i&nast=0 then call writeln(out," "bld||yel||right(i,3,'0')" "red||left(edareaname.i,34));else call writeln(out," "bld||yel||right(i,3,'0')" "ubld||red||left(lang.31,34));end;end;call writeln(out,'');call close(in);call close(out);if compress(cansi.edselect)~="" then address command 'copy "'cansi.edselect'" "'tempath'jinx'bbsline'" noreq >NIL:';edevareahandler:;do until datatype(areaselect)="NUM"&areaselect>0&areaselect<=edareas;if ~carrier then signal boomtown;sendfile tempath'jinx'bbsline;newline;newline;prompt length(edareas) 'NORMAL "'bblu'A'left(' ',78)'D'bld||grn||left(edesc.eds,50)||yel||lang.367' 'pnk'['grn'Q'lang.162||lang.190||pnk']'yel': 'wht'"';areaselect=upper(result);send clr;newline;if areaselect="Q" then signal edevhandler;end;sl "[FList] "lang.392||areaselect" - {"edareaname.areaselect"}";nast=0;do z=1 to 8;if substr(edflags.areaselect,z,1)="X"&substr(userflags,z,1)~="X" then nast=1;end;if useraccess<edaccess.areaselect|nast=1 then;do;newline;print clr||red||lang.369||clr;sl" [FList] "lang.370;newline;continue;signal edevareahandler;end;if ~exists(edarealist.areaselect) then;do;newline;print clr||red||lang.371||clr;sl" [FList] "lang.372;newline;continue;signal edevareahandler;end;extdir=1;goarea=edarealist.areaselect;areapath=edareapath.areaselect;zeon=zeon+1;farea=zeon;npat.zeon=areapath;areaname="[ED] "edareaname.areaselect;call redraw;call pragma('Directory',epath.edselect);pageno=1;signal fscroller;exit;flick:;send ""scrln+7";0H";send clr||bld||red||lang.393" "cyn"("yel"R"cyn")"grn||lang.394", "cyn"("yel'8/'lang.395||cyn")"grn" "lang.396", "cyn"("yel"2/"lang.397||cyn")"grn" "lang.398" "wht||fsh"::> "clr;do until flickopt="R"|c2d(flickopt)=13;getchar;flickopt=upper(result);If flickopt='9b'x|flickopt='5B'x then;Do;maygetchar;Tmp=result;If Tmp='A' then flickopt='8';If Tmp='B' then flickopt='2';If Tmp='C' then flickopt='6';If Tmp='D' then flickopt='4';End;if flickopt='6' then;do 2;call flickdn;end;if flickopt='2' then call flickdn;if flickopt='4' then;do 2;call flickup;end;if flickopt='8' then call flickup;send clr||bld""scrln+3"H"col_bar||red"C["grn||right(pageno,length(pages),'0')||WHT"/"YEL||pages||red"]"clr;end;send ""scrln+7";0H"kl;call scroll;return;flickdn:;if pageno<pages then;do;pageno=pageno+1;if pageno=pages then start=bebob-(scrln-1);else start=start+scrln;end;return;flickup:;if pageno>1 then;do;if start-scrln<1 then start=scrln+1;pageno=pageno-1;start=start-scrln;end;return;touch:;if compress(markstring)="" then;do;call alertit(RED||BLD||lang.152);return;end;comeback=customquest(lang.426);if upper(comeback)~="Y" then return;print ""scrln+4"H"kl;send ""scrln+4"H"BLD||WHT||lang.399" "clr;do words(markstring);send ".";end;do pork=1 to words(markstring);vthing=upper(word(markstring,pork));send ""scrln+4";"pork+10"H"clr||bld||red"o";mkf=mkf-1;gulp=goar.vthing;mark.vthing.gulp="N";send clr"A2H"GRN||lang.154" "WHT||mkf" ";do cheese=2 to bebob-1;if upper(word(currfname.cheese,1))=vthing then;do;dte=date();clever=upper(substr(dte,4,3));select;when clever=mname.1 then magnet='01';when clever=mname.2 then magnet='02';when clever=mname.3 then magnet='03';when clever=mname.4 then magnet='04';when clever=mname.5 then magnet='05';when clever=mname.6 then magnet='06';when clever=mname.7 then magnet='07';when clever=mname.8 then magnet='08';when clever=mname.9 then magnet='09';when clever=mname.10 then magnet='10';when clever=mname.11 then magnet='11';when clever=mname.12 then magnet='12';otherwise magnet='01';end;currfname.cheese=left(currfname.cheese,32)||right(dte,2)||magnet||left(dte,2)||substr(currfname.cheese,39);end;end;send ""scrln+4";"pork+10"H"clr||bld||red"O";end;mkf=0;comeback=customquest(lang.427);if upper(comeback)~="Y" then call sdoubleudoublev;else markstring="";send clr"A2H"GRN||lang.154||WHT||mkf" ";call spinwrite;call scroll;return;dimport:;dimpath=areapath;send ""scrln+7";0H"kl;send ""scrln+7";0H"clr||bld||yel"("cyn"I"yel")"grn||lang.400"  "yel"("cyn"U"yel")"grn||lang.401||wht"  ::> ";getchar;if upper(result)="U" then;do;send ""scrln+7";0H"kl;query ""scrln+7";0H"YEL||lang.264" "cyn"\\Ram:";dimpath=result;end;send ""scrln+7";0H"kl;query ""scrln+7";0H"YEL||lang.402" "cyn"\\~(.message)";expat=result;if upper(expat)="RESULT" then expat='#?';send ""scrln+7";0H"kl;send ""scrln+7";0H"clr||red||lang.403" "bld||lang.405||ubld" "lang.404" "yel||bld;olay='';do lazy=2 to bebob-1;zagga=upper(word(currfname.lazy,1));olay=olay'­'zagga'­';end;print "Done.";call clearsarea;send ""scrln+7";0H"kl;send ""scrln+7";0H"clr||red||lang.403" "bld||lang.406||ubld" "lang.404" "yel||bld;address command 'list files "'dimpath'~(#?.desc|files.bbs)" quick nohead pat="'expat'" lformat "%s" >"'tempath'dimport"';send ""scrln+7";0H"kl;send ""scrln+7";0H"clr||red||lang.407" "bld||lang.408||ubld" "lang.409||yel||bld;call open(dim,tempath'dimport','r');do until eof(dim);data=upper(readln(dim));gotit=0;if pos('­'data'­',olay)=0 then;do;if ~open(impf,dimpath||data,'r') then impsize="Unknown";else;do;impsize=seek(impf,0,'E');call close(impf);end;send ""scrln+7";0H"kl;send ""scrln+7";0H"clr||cyn||bld||data||grn" ("ubld||impsize" "lang.91||bld") "wht": "yel"("cyn"I"yel")"grn||lang.410" "yel"("cyn"S"yel")"grn||lang.411" "yel"("cyn"D"yel")"grn||lang.412" "yel"("cyn"A"yel")"grn||lang.413||wht" ::> ";getchar;if upper(result)="A" then;do;call close(dim);call reloadfiles;call scroll;return;end;if upper(result)="I" then;do;do m=1 to 15;send ""scrln+7";0H"kl;send clr||pnk||bld||lang.414" ("ubld||lang.415||bld") "cyn||m||clr"/"bld||cyn"15 ";prompt 40 'NORMAL "'clr||bblu||bld||wht'                                        D"';impdesc.m=result;send clr;if upper(impdesc.m)="RESULT" then;do;m=m-1;leave m;end;end;send ""scrln+7";0H"kl;send ""scrln+7";0H"clr||bld||yel||m" "lang.416;if open(fbout,areapath'files.bbs','a') then nop;else call open(fbout,areapath'files.bbs','w');dte=date();clever=upper(substr(dte,4,3));select;when clever=mname.1 then magnet='01';when clever=mname.2 then magnet='02';when clever=mname.3 then magnet='03';when clever=mname.4 then magnet='04';when clever=mname.5 then magnet='05';when clever=mname.6 then magnet='06';when clever=mname.7 then magnet='07';when clever=mname.8 then magnet='08';when clever=mname.9 then magnet='09';when clever=mname.10 then magnet='10';when clever=mname.11 then magnet='11';when clever=mname.12 then magnet='12';otherwise magnet='01';end;if m=1 then call writeln(fbout,left(data,23)' 'right(impsize,7)' 'right(dte,2)||magnet||left(dte,2)' 'impdesc.1);else;do;call writeln(fbout,left(data,23)' 'right(impsize,7)' 'right(dte,2)||magnet||left(dte,2)' File_ID.DIZ description');do n=1 to m;call writeln(fbout,'\'copies(' ',38)||impdesc.n);end;end;call close(fbout);call open(dfout,areapath||data'.desc','w');call writeln(dfout,username);call close(dfout);address command 'filenote "'areapath||data'" "'impdesc.1'" >NIL:';end;else if upper(result)="D" then;do;send ""scrln+7";0H"kl;send ""scrln+7";0H"clr||red||bld||lang.417||yel;address command 'delete "'dimpath||data'" >NIL:';print lang.418;end;send ""scrln+7";0H"kl;send ""scrln+7";0H"clr||red||lang.407" "bld||lang.408||ubld" "lang.409||yel||bld;end;end;call close(dim);call alertit(clr||red||bld||lang.419);call reloadfiles;call scroll;return;customquest:;parse arg custhom;send YEL""scrln+7";0H"kl||clr||bld||pnk||custhom" "grn"y"blu"/"red"N "wht||fsh"::> "clr||CYN;getchar;sculder=result;send YEL""scrln+7";0H"kl;return(sculder);sdoubleudoublev:;mkf=words(markstring);do sisters=1 to mkf;voice=upper(word(markstring,sisters));ger=goar.voice;mark.voice.ger="Y";end;return